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Instructions  for  Updating  the  SELECT  Program 
and  Its  Documentation 

1.  Several  improvements  have  been  made  and  small  errors  corrected  since 
the  1987  release  of  Version  (Ver.)  1.0  of  the  SELECT  program  and  documenta¬ 
tion.  The  latest  form  of  the  program  including  these  changes  has  been 
labelled  Ver.  1.3.  Ver.  1.1  and  1.2  were  interim  working  versions  of  the 
program  and  therefore  were  not  released  or  documented. 

2.  Documentation  for  Ver.  1.0  is  found  in  the  US  Army  Engineer  Water¬ 
ways  Experiment  Station  Instruction  Report  E-87-2,  entitled  "SELECT:  A  Numer¬ 
ical  One-Dimensional  Model  for  Selective  Withdrawal."  To  update  this  SELECT 
manual  and  make  it  current  with  the  new  program,  you  must 

a.  Replace  pages  13-14,  35-40,  71-72,  and  89-94  in  the  main  text 
with  the  corresponding  pages  in  this  enclosure. 

b.  Replace  Appendices  A  through  E  with  their  updated  counterparts 
enclosed. 

3.  To  update  the  program,  a  wholesale  substitution  should  be  made. 

That  is,  SELECT. FOR  should  be  replaced  with  SELECT13 . FOR,  and  SELECT.EXE  with 
SELECT13.EXE.  Input  data  files  used  with  Ver.  1.0  should  be  compatible  with 
Ver.  1.3  with  one  exception.  Version  1.3  no  longer  expects  to  find  the  FILES 
command  line  in  the  input.  The  file  assignments  have  been  established  as 
unit  05  for  input  and  unit  06  for  output.  Removing  the  FILES  command  line 
from  the  Ver.  1.0  input  files  will  make  them  usable  with  Ver.  1.3. 

4.  The  programming  errors  corrected  since  Ver.  1.0  will  not  produce 
significantly  different  results  for  most  SELECT  applications.  If  an  applica¬ 
tion  you  are  running  yields  notably  different  answers  with  Ver.  1.3  than  with 
Ver.  1.0,  please  contact  us.  A  more  detailed  listing  of  the  changes  is  given 
as  comment  within  the  code  and  appears  on  page  1  of  Appendix  E  of  the 
enclosure. 
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5.  If  placed  in  the  manual,  these  pages  can  serve  as  an  indication 
that  the  manual  has  been  updated  and  when  and  how  it  was  done.  Any  questions 
or  comments  regarding  this  update  should  be  directed  to  either  Mr.  Stacy  E. 
Howington  (601-634-2939)  or  Mr.  Steven  C.  Wilhelms  (601-634-2475). 
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SELECT:  A  NUMERICAL,  ONE-DIMENSIONAL  MODEL 
FOR  SELECTIVE  WITHDRAWAL 


PART  I :  INTRODUCTION 


Background 

1.  As  a  result  of  increased  public  awareness  and  state  and  Fed¬ 
eral  legislation,  Corps  of  Engineers  (CE)  water  resources  projects  are 
being  operated  with  an  emphasis  on  water  quality  considerations.  The 
use  of  a  reservoir  outlet  works  incorporating  fixed  or  multilevel  selec¬ 
tive  withdrawal  structures  is  a  primary  method  for  the  control  of  reser¬ 
voir  release  quality.  These  structures  release  water  from  specified 
strata  in  a  density-stratified  reservoir,  thereby  allowing,  through 
blending  of  flows  or  direct  release,  greater  control  of  water  quality. 
Two  general  conditions  must  be  met  to  ensure  that  a  given  structure  has 
the  ability  to  selectively  withdraw  reservoir  waters.  First,  if  the 
structure  exists,  the  outlets  must  be  at  appropriate  elevations  and  have 
sufficient  capacity  such  that  particular  outlets  can  be  operated  to 
withdraw  water  of  a  desired  quality.  If  the  structure  is  proposed,  the 
number,  locations,  and  capacities  of  outlets  should  be  determined  as 
part  of  the  design  procedure  to  ensure  that  the  required  level  of  re¬ 
lease  water  can  be  maintained.  Second,  for  efficient  operation  of  an 
existing  structure  or  optimal  design  of  a  proposed  structure,  the  oper¬ 
ator  or  designer  must  have  the  capability  to  describe  the  zone  of  with¬ 
drawal  formed  by  a  discharge  through  a  selective  withdrawal  outlet  for  a 
given  outlet  geometry,  location,  and  discharge.  Additionally,  proper 
hydraulic  performance  of  such  structures  acts  as  a  constraint  for  any 
solution. 

2.  Research  at  the  US  Army  Engineer  Waterways  Experiment  Station 
(WES)  has  provided  extensive  technology  with  which  to  assist  the  opera¬ 
tor  or  designer  in  addressing  the  conditions  listed  above.  Through  lab¬ 
oratory  experimentation,  Bohan  and  Grace  (1969)  and  Grace  (1971) 
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described  the  withdrawal  zone  formed  by  releases  from  a  density- 
stratified  reservoir  through  ports  (orifice  flow)  and  over  weirs  (i.e., 
spillway  flow,  thermal  berms).  An  outgrowth  of  this  initial  research 
was  the  development  of  the  one-dimensional  computer  program  SELECT, 
which  computes  the  withdrawal  zone  formed  by  a  given  release  through  or 
over  a  specified  outlet  structure  for  a  known  reservoir  density 
stratification.  The  program  also  computes  the  quality  characteristics 
of  the  release  for  user-specified  parameters  (temperature,  dissolved 
oxygen,  etc.)  treated  as  conservative  substances.  Additional  work, 
which  includes  Dortch  and  Holland  (1984),  describes  a  numerical 
procedure  that  systematically  evaluates  the  optimal  number  and  locations 
of  selective  withdrawal  intakes  required  to  meet  a  specified  release 
quality  objective.  Holland  (1984)  also  overviews  the  steps  that  must  be 
followed  in  the  design  of  selective  withdrawal  structures. 

3.  Recent  research  efforts,  building  on  the  work  of  Bohan  and 
Grace  (1973)  and  many  other  researchers,  have  resulted  in  more- 
generalized  techniques  for  the  description  of  the  withdrawal  zone  formed 
by  a  reservoir  release  through  a  port  acting  as  a  point  sink.  Smith 
et  al.  (1987)  document  these  techniques.  Subsequently,  the  results  of 
these  and  other  research  efforts  have  been  incorporated  into  an  update 
of  the  SELECT  program. 


Purpose  and  Scope 

4.  The  purpose  of  this  report  is  to  document  the  updated  version 
of  the  SELECT  program  for  field  office  use.  This  will  be  done  by  de¬ 
scribing  the  computational  methodologies  and  the  sequence  of  operations 
in  SELECT  (Part  II),  the  operations  used  in  the  subprograms  (Part  III), 
and  the  assumptions  and  limitations  inherent  to  the  code  (Part  IV). 
Definitions  of  the  data  required  as  input  are  provided  in  Part  V. 
Additional  information  presented  in  the  report  includes  a  description  of 
the  input  format  (Appendix  A),  input  file  and  output  examples  (Appen¬ 
dixes  B  and  C),  error  codes  (Appendix  D),  and  program  code  (Appendix  E). 
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PART  II:  AN  OVERVIEW  OF  SELECT  AND  ITS  USE 


Program  Purpose 

5.  The  SELECT  program  is  a  one-dimensional  numerical  model  that 
predicts  the  vertical  extent  and  distribution  of  withdrawal  from  a  res¬ 
ervoir  of  known  density  and  quality  distribution  for  a  given  discharge 
from  a  specified  location.  Using  this  prediction  for  the  withdrawal 
zone,  SELECT  computes  the  quality  of  the  release  for  user-specif ied 
parameters  (such  as  temperature,  dissolved  oxygen  (DO),  turbidity,  iron) 
treated  as  conservative  substances.  The  release  constituents  are  con¬ 
sidered  conservative  through  the  selective  withdrawal  structure  because 
the  detention  time  in  the  structure  is  short  compared  with  the  time  re¬ 
quired  for  the  constituents  to  physically  or  chemically  change.  For 
example,  there  would  be  no  time  for  the  water  temperature  to  change  sig¬ 
nificantly  nor  would  there  be  time  for  iron  to  oxidize  significantly. 
SELECT  will  predict,  however,  the  improvement  in  DO  that  would  occur  due 
either  to  natural  reaeration,  as  flow  passes  through  gated-conduit 
outlet  works,  or  to  turbine  venting. 

6.  It  is  important  for  the  user  to  realize  the  purpose  of 
SELECT.  SELECT  was  developed  based  on  the  philosophy  that  the  field 
office  users  require  a  tool  to  compute  the  withdrawal  and  release  qual¬ 
ity  characteristics  of  a  structure  for  given  values  of  density  stratifi¬ 
cation,  outlet  geometry,  and  discharge.  SELECT  is  that  tool.  SELECT  is 
not  a  water  quality  or  thermal  simulation  model.  It  does  not  consider 
all  the  hydrodynamic  and  biochemical  processes  ongoing  in  a  reservoir. 
Its  purpose  is  to  compute  withdrawal  and  release  quality 
characteristics. 

7.  Many  times  the  computation  of  reservoir  release  character¬ 
istics  is,  within  itself,  sufficient  to  provide  insight  into  the  solu¬ 
tions  to  the  posed  problems.  For  example,  the  day-to-day  operation  of  a 
multilevel  outlet  works  or  the  initial  design  of  a  thermal  berm  could  be 
performed  with  SELECT. 
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Conceptual  Methodology 


8.  SELECT  accomplishes  its  assigned  tasks,  subject  to  various 
assumptions  and  limitations,  by  first  dividing  the  reservoir  pool  into  a 
user-specified  number  of  layers  of  equal  thickness.  (The  user  should 
first  note  the  program  assumptions  and  limitations  outlined  in  Part  IV.) 
The  layers  are  assumed  in  the  code  to  be  longitudinally  and  laterally 
homogeneous  in  quality.  The  effects  of  density  stratification  are 
assumed  to  act  only  in  the  vertical  dimension  on  the  release  from  the 
project.  The  velocities  induced  by  the  release  are  also  assumed  to  vary 
only  in  the  vertical  direction,  in  keeping  with  the  one-dimensional 
assumption  of  the  program. 

9.  SELECT  computes  the  limits  of  withdrawal  (defined  as  the  ver¬ 
tical  locations  in  the  pool  beyond  which  there  is  no  contribution  to  the 
total  release),  the  vertical  distribution  of  withdrawal  between  those 
limits,  the  point  of  maximum  withdrawal,  and  the  outflow  quality  charac¬ 
teristics.  To  do  this,  SELECT  first  computes  a  normalized  velocity  pro¬ 
file  for  the  region  within  the  withdrawal  zone  of  each  port  or  weir. 

This  profile  is  normalized  in  the  sense  that  the  individual  point  veloc¬ 
ities  are  divided  by  the  maximum  profile  velocity  and  subsequently 
scaled  such  that  their  integration  over  the  profile  would  yield  the  dis¬ 
charge  producing  them. 

10.  The  purpose  of  computing  the  normalized  velocity  profile  is 
not  to  provide  a  prediction  of  actual  velocities  in  the  reservoir; 
rather,  the  normalized  velocity  profile  is  used  to  generate  the  reser¬ 
voir  withdrawal  profile  as  a  final  product.  The  individual  withdrawal 
profiles  from  each  outlet  are  then  summed,  yielding  a  total  withdrawal 
profile  with  corresponding  withdrawal  limits.  With  the  total  withdrawal 
profile  known,  the  release  quality  can  be  determined  by  weighting  the 
quality  contribution  of  each  layer  with  respect  to  the  ratio  of  the 
layer  discharge  to  the  total  discharge. 

11.  The  user  should  also  be  alerted  to  the  phrase  "theoretical 
limit  of  withdrawal"  used  in  this  report.  This  phrase  is  used  to  denote 
a  withdrawal  condition  for  which  the  potential  to  withdraw  flow  from 
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much  higher  or  lower  in  the  pool  would  have  existed  had  the  withdrawal 
zone  not  been  truncated  by  the  physical  boundaries  of  the  reservoir, 
e.g.,  the  water  surface  or  bottom,  respectively.  The  theoretical  limit 
stands  in  contrast  to  the  physical  limit  taken  to  be  the  water  surface 
or  bottom. 

12.  A  final  concept  must  be  formalized  prior  to  use  of  the  model. 
SELECT  uses  the  concept  of  "withdrawal  angle"  to  incorporate  the  effects 
of  many  local  topographical  conditions  upon  port  withdrawal  zone 
formation.  In  plan  view,  the  withdrawal  angle  can  be  thought  of  as  the 
angle  the  outlet  works  structure  makes  with  the  local  topography.  The 
plan  views  in  Figures  la  and  1b  show  effective  withdrawal  angles  of 

ri  ( 180  deg)  and  n/2  (90  deg),  respectively.  These  conditions  typify 

the  most  common  means  of  withdrawal  through  an  outlet  tower  in  the 
middle  of  a  dam  face  and  at  the  edge  of  a  dam  face  near  a  wall. 

13.  SELECT  incorporates  the  concepts  described  above  in  a  set  of 
transcendental  equations  that  must  be  iteratively  solved  to  obtain  the 
withdrawal  zone  characteristics. 
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Overview  of  Program  Execution 


14.  The  following  paragraphs  outline  the  sequence  of  operations 
that  SELECT  executes  to  determine  the  withdrawal  limits  and  release 
water  quality.  Figure  2  is  a  flowchart  that  depicts  this  sequence.  The 
branches  at  decision  points  in  the  flowchart  are  labeled  T  and  F  for 
true  or  false.  Figure  3  gives  the  program  call  sequence  from  each 
subprogram. 

15.  SELECT'S  main  program  orders  the  sequence  in  which  the  sub¬ 
programs  are  executed.  Subroutine  XREAD  is  called  first  by  the  main 
program  to  read  information  from  the  input  file  concerning  program  con¬ 
trol  parameters  such  as  the  number  of  data  sets  in  the  input  file. 

XREAD  is  then  called  again  to  read  information  about  the  impoundment, 
the  outlets,  and  the  vertical  distribution  of  all  water  quality  param¬ 
eters  being  modeled. 

16.  After  each  water  quality  parameter  distribution  is  entered, 
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Figure  2.  SELECT  flowchart 
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MAIN 


from  each  subprogram 
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subroutine  INTERP  interpolates  between  input  parameter  values  at  their 
respective  elevations  to  produce  values  at  the  center  lines  of  evenly 
spaced  and  vertically  distributed  horizontal  layers  (see  subroutine 
INTERP  description  for  greater  detail  on  horizontal  layers).  Vertical 
distributions  for  each  parameter  are  thus  created  for  computat ior.al  pur¬ 
poses.  SELECT  bases  all  of  its  calculations  on  these  distributions. 

■7.  Subroutine  OUTVEL  is  the  next  to  be  called  in  SELECT’S  execu¬ 
tion.  OUTVEL  is  a  subprogram  that  carries  out  the  organizational  duties 
of  the  computational  portion  of  the  program.  Based  on  whether  a  weir  or 
a  port  is  being  modeled,  OUTVEL  calls  subroutine  VWEIR  or  VPORT,  respec¬ 
tively,  which  are  the  main  computational  subroutines  in  SELECT.  VWEIR 
and  VPORT  generate  the  withdrawal  zone  limits  and  compute  the  discharges 
or  flow  rates  from  each  computat iona 1  layer  within  the  withdrawal  zone. 
Program  control  is  then  moved  back  to  OUTVEL  where  all  of  the  withdrawal 
zone  discharges  for  each  outlet  modeled  in  VPORT  and  VWEIR  are  summed. 
The  subroutine  then  normalizes  the  withdrawal  distribution,  effectively 
creating  the  total  normalized  velocity  distribution.  OUTVEL  then  deter¬ 
mines  the  total  release  water  quality  parameter  values  by  summing  the 
contributions  of  each  layer  for  each  parameter  modeled.  To  compute 
these  release  values,  OUTVEL  assumes  that  each  parameter  acts  as  a  con¬ 
servative  constituent  during  the  withdrawal  process,  since  detention 
time  in  the  structure  during  the  release  is  smail  compared  with  the  time 
required  for  the  const  i  tuer.ts  to  change  physically  or  chemically. 

’8.  If  withdrawal  zones  from  different  outlets  overlap  verti¬ 
cally,  OUTVEL  calls  subroutine  SHIFT  to  adjust  the  withdrawal  zone 
limits  and  outflow  profiles  from  each  overlapping  zone  before  the  zones 
are  summed  as  previously  stated. 

19.  If  adjustments  to  the  DO  content  of  the  release  flow  are  de¬ 
sired  based  on  aeration  of  the  release  Dy  the  outlet  structure  ■, o  ,e  to 
turbine  venting  or  natural  structural  re.aeration  processes,  is  described 
in  paragraphs  S  -  7 )  ,  the  ad  justmer.ts  are  performed  just  prior  to  Output  - 
ting  the  final  results. 

20.  The  results  are  output,  bv  suorowt  1  ries  XPh'INI  i r .  i  1  Vi  L.'T.  A 

p.ot  of  the  normalized  ve.ocitv  and  density  diatribe’.  I  'r  is  itei  by 
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OVPLOT,  and  a  tabular  listing  of  profile  data  such  as  DO,  normalized  velocity, 
withdrawal,  temperature,  and  other  quality  constituents  is  generated  by  XPRINT 
along  with  information  about  the  outlet  characteristics  and  withdrawal  zone 
limits.  Details  of  each  of  these  subprograms  are  given  in  Part  III. 

Available  Assistance 

21.  Assistance  in  understanding,  setting  up,  or  executing  the  SELECT 
program  or  in  analyzing  its  results  is  available  to  CE  Field  Operating  Agency 
users.  Copies  of  the  SELECT  code  are  available  for  use  on  most  mainframes, 
minicomputers,  workstations,  and  personal  computers.  Thus  far,  the  program 
has  been  executed  on  Control  Oata  Corporation  and  CRAY  mainframes;  Digital 
Equipment  Corporation  (DEC)  VAX  minicomputers  and  workstations;  and  IBM,  DEC, 
and  Dell  personal  computers. 
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PART  III:  PROGRAM  DESCRIPTION 

22.  The  following  sections  give  detailed  descriptions  of  the  equations 
and  logic  in  SELECT  and  its  subprograms.  A  written  description  of  each  sub¬ 
program  is  given  along  with  a  flowchart  diagramming  the  operational  sequence 
of  the  subprogram.  Note  that  throughout  the  report,  T  and  F  signify  true 
and  false  at  decision  points  in  the  given  flowcharts.  Listings  of  the 
variables  in  each  subprogram  and  their  definitions  are  also  given. 

Main  Program 

23.  The  main  program  of  SELECT  is  very  small,  with  the  bulk  of  the 
program  being  found  in  the  functions  and  subroutines.  The  main  program 
basically  orders  the  calling  sequence  of  the  subprograms  to  perform  input 
operations,  calculations,  and  output  operations  (Figure  4).  Table  1  lists  the 
variables  used  in  the  main  program. 

24.  The  main  program  also  performs  other  tasks  that  are  very  important 
to  the  operation  of  SELECT.  The  first  is  the  generation  of  a  density  profile 
based  on  a  user- input  temperature  profile.  Generally,  the  user  does  not  have 
density  profile  information  on  the  impoundment  being  modeled  but  does  have 
temperature  data.  SELECT  will  use  an  input  temperature  profile  to  generate 
densities  for  each  discrete  layer.  The  equation  used  to  convert  temperature 
to  density  is 

(T,  3.9863)?  (T.  -  288.9414) 

Pi  =  1  -  — - -  *  t1- - -  (1) 

508,929.2  (t,  -  68.12963) 

where 

Pi  *  density  in  grams  per  cubic  centimeter  for  layer  ! 

T|  *  temperature  in  degrees  Centigrade  for  layer  1 
I  =  index  designating  a  specified  layer 
The  main  program  also  checks  the  stability  of  the  density  profile  that  was 
given  or  generated.  The  profile  is  stable  if  the  density  never  dec reases  with 
increasing  depth.  If  the  profile  is  found  unstable,  the  program  w i 1 1  termi 
nate  execution  and  issue  an  error  message. 
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Figure  4.  Main  program  flowchart 


Table  1 

Main  Program  Variables 


Variable 

Cl 

C2 

C3 

C4 

DEN( J) 

ISURF 

KFILE 

NSETS 

QAERA 

QCENT 

ODEN 

QVENT 

TEMP( J ) 


_ Definition _ 

Constant  =  -3.9863  ;  used  in  determining  density 
correspondence  to  a  particular  temperature 

Constant  =  508,929 .2  ;  used  same  as  Cl 

Constant  =  288.9414  ;  used  same  as  Cl 

Constant  =  68.12963  ;  used  same  as  Cl 


Density  of  layer  J,  g/ml 

Total  number  of  layers  in  a  profile 

Output  file  code 

Number  of  data  sets  in  the  input  file 


Logical  variable;  true,  consider  DO  uptake  due  to 
aeration  through  a  gated  structure  outlet  works; 
false,  do  not  consider  aeration 


Logical  variable;  true,  temperatures  are  in  degrees 
Centigrade;  false,  Fahrenheit 


Logical  variable;  true,  density  profile  is  input; 
false,  develop  density  profile  from  temperature 

Logical  variable;  true,  consider  DO  uptake  due  to 
turbine  venting;  false,  do  not  consider  uptake 


Temperature  of  layer  J,  degrees  Fahrenheit  or 
Centigrade 


*  h 


L  A 


DEN I NT 


Description 

25.  Function  DENINT  determines  the  density  at  any  elevation.  The 
user-input  density  profile  (or  temperature  profile  which  SELECT  converts 
to  a  density  profile)  is  interpolated  by  subroutine  INTERP  to  give  den¬ 
sities  at  each  layer  center  line.  When  the  density  at  some  arbitrary 
elevation  is  desired,  DENINT  uses  the  layer  center-line  densities  above 
and  below  the  given  elevation  and  linearly  interpolates  to  determine  the 
density  at  the  given  elevation.  Figure  5  shows  a  schematic  of  the  algo¬ 
rithm  flojchart,  and  Table  2  lists  the  variables  used  in  DENINT. 

26.  The  interpolation  equation  is 

rA  =  rl  +  1  '  (d)  (ri  +  1  “  Fl)  (2) 

where 

rft  =  density  at  the  given  elevation  of  point  A 

rI+1  =  density  at  the  elevation  of  the  layer  1+1  center  line 
immediately  above  point  A 

d  =  distance  between  the  elevation  of  point  A  and  the  elevation 
of  the  layer  center  line  immediately  above 

D  =  distance  between  the  layer  center  lines  immediately  above 
and  immediately  below  point  A 

r j  =  density  at  the  elevation  of  the  layer  I  center  line 
immediately  below  point  A 

A  schematic  defining  these  variables  is  shown  in  Figure  6. 

Special  considerations 

27.  If  point  A  lies  within  0.01  percent  of  the  layer  thickness  of 
a  center  line,  the  density  at  the  elevation  of  point  A  is  assigned  the 
value  of  the  density  at  the  layer  center  line. 

28.  When  a  density  value  is  desired  for  an  elevation  that  is 
above  the  impoundment  surface  or  below  the  impoundment  bottom,  linear 
extrapolation  is  used  (the  need  for  such  a  calculation  is  explained  in 
the  section  on  subroutine  VPORT).  For  an  elevation  above  the  surface, 
SELECT  uses  the  change  in  density  and  difference  in  elevation  between 
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THIS  FUNCTION  INTERPOLATES  AND  EXTRAPOLATES  DENSITY 
VALUES  AT  DESIRED  ELEVATIONS  BASED  ON  DENSITY  PROF  ILES 


Figure  5.  Flowchart  for  function  DENINT 
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Table  2 

DENINT  Variables 


Variable 


DEN(J) 


Definition 


Layer  thickness 
Density  of  layer  J,  g/cm: 


DEN(IJ)  Density  of  upper  interpolation  layer,  g/cm-5 

DEN(JK)  Density  of  lower  interpolation  layer,  g/crrr 

DENPRT  Density  at  the  port  center  line 

DEPTH  Depth  of  pool 

DGRD  The  density  gradient  used  to  determine  artificial  densities 

outside  the  pool  boundaries 

DGRDB  The  density  gradient  from  port  to  bottom;  slope  equals  the 
density  difference  over  the  vertical  distance  between  the 
port  center  line  and  the  bottom 

DGRDT  The  density  gradient  from  port  to  surface;  slope  equals  the 
density  difference  over  the  vertical  distance  between  the 
port  center  line  and  the  surface 

DIFF  Absolute  difference  between  locations  at  which  density  is  to 

bedetermined  and  nearest  layer  midpoint 

ELMID  Location  of  midpoint  of  the  layer  containing  the  location  at 
which  density  is  to  be  determined 

ELTOP  Elevation  of  midpoint  of  upper  interpolation  layer 

HGTPRT  Height  above  bottom  of  port  center  line 

IJ  Subscript  of  upper  interpolation  layer 

IJK  0  or  1 ;  used  to  define  interpolation  layers 

ISURF  Subscript  of  surface  layer 

JK  Subscript  of  lower  interpolation  layers 

LAYER  Layer  containing  the  location  at  which  density  is  to  be 
determined 

( Continued ) 
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Table  2  (Concluded) 


Variable 
LAYER  1 

NUMD 

OLDPRT 

QEXTR 

SIGN 

SLOPE 

SMALL 

X 

Y 


1 

_ Definition _ 

Assigned  the  layer  number  value  for  layer  calculated  that  lies 
outside  the  pool 

Total  number  of  density  values  input  for  the  density  profile 

Assigned  the  value  of  HGTPRT 

Logical  variable;  true  when  elevation  of  point  is  outside  of 
pool;  false  when  elevation  of  point  is  inside  pool  or  at 
boundaries 

Equals  1,  interpolation  location  is  below  midpoint  of  its 
layer;  equals  -1,  interpolation  location  is  above  midpoint 
of  its  layer 

Change  in  density  between  two  interpolation  layers  divided  by 
the  vertical  distance  between  the  layers 

Essentially  0,  used  in  check  for  constant  density  condition 

Height  above  bottom  at  which  density  is  desired 

Assigned  the  value  of  X  for  temporary  storage 
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LAYER,  t 


Pi 


Figure  6.  Schematic  used  to  Find  density 
at  arbitrary  elevation  A 

the  port  center  line  and  surface  to  extrapolate  the  required  density 
value  (Figure  7).  For  an  elevation  below  the  bottom,  SELECT  uses  the 
change  in  density  and  difference  in  elevation  between  the  port  center 
line  and  the  impoundment  bottom  elevation  (Figure  8)  to  extrapolate  the 
needed  density.  In  actuality,  l  density  value  outside  the  pool  is  arti¬ 
ficial  and  is  necessary  only  for  computations  in  subroutines  VPORT, 
VWEIR,  and  SHIFT. 
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Figure  7.  Diagram  shows  extrapolation  of  density 
gradient  to  determine  density  at  an  elevation 
above  the  surface 


Figure  8.  Diagram  shows  extrapolation  of  density 
gradient  to  determine  density  at  an  elevation 
below  the  bottom 


INTERP 


Description 

29.  Subroutine  INTERP  generates  computational  profiles  based  on 
user-input  data  profiles  for  all  parameters  to  be  modeled.  INTERP  uses 
linear  interpolation  of  input  profile  values  to  determine  a  value  for 
the  center  line  of  each  computational  layer.  The  necessity  for  profile 
values  at  the  computational  layer  center  lines  is  for  numerical  conven¬ 
ience  and  output  organization  only.  For  example,  when  the  density  at 
some  arbitrary  elevation  is  desired,  the  program  determines  which  compu¬ 
tational  layer  the  elevation  resides  in  and  finds  the  layer  center  lines 
immediately  above  and  below  the  elevation  desired.  It  then  interpolates 
between  the  two  center-line  density  values  to  find  the  density  at  the 
desired  elevation.  Without  the  computational  layer  center-line  values, 
the  program  would  have  to  scan  and  compare  every  input  data  point  eleva¬ 
tion  with  the  desired  elevation  until  it  found  the  data  values  immedi¬ 
ately  above  and  below  the  desired  elevation,  which  is  significantly  less 
efficient.  Since  many  of  the  algorithms  in  SELECT  use  profile  informa¬ 
tion  and  are  repeated  many  times,  the  use  of  computational  layers  is  a 
timesaving  necessity. 

30.  The  use  of  computational  layer  center-line  values  may  be  less 
accurate  than  direct  use  of  the  actual  data  points  since  it  results  in 
interpolation  between  interpolated  values;  however,  the  errors  incurred 
by  this  technique  are  not  significant.  Figure  9  is  the  computational 
flowchart  of  INTERP;  Table  3  displays  the  variables  used  in  INTERP. 
Special  considerations 

31.  Layer  center-line  elevations  that  lie  in  the  pool  above  the 
highest  input  data  point  elevation  are  assigned  the  value  of  that  high¬ 
est  data  point.  Layer  center-line  elevations  that  lie  in  the  pool  below 
the  lowest  input  data  point  elevation  are  assigned  the  value  of  that 
lowest  input  data  point. 

32.  If  a  layer  center-line  elevation  lies  within  0.01  percent  of 
the  layer  thickness  of  a  data  point,  the  center  line  will  be  assigned 
the  value  of  that  data  point. 
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Table  3 

INTERP  Variables 


Var  table 
DIFE1 


D I  FF<? 


DM (  I 


1SURF 


Def in  1 1 ion 


Absolute  difference  in  elevations  of  present  layer  midpoin 
and  nearest  profile  point  below  it 

Absolute  difference  in  elevations  of  present  layer  and  the 
nearest  profile  point  aDove  it 

Working  storage  used  m  resequer.eing  heights  into  bottom-t 
top  order 

Total  numDen  of  layers 


J 

K 


L 

NUMV 


NV 

PM  (  I  ) 


PQUAL(  I  ) 


Subscript  of  layer  midpoint  just  above  bottom  of  profile 
Subscript  of  layer  midpoint  just  be.ow  top  of  profile 
Temporarily  assigned  layer  values 
Number  of  input  profile  data  points 

Number  of  input  profile  readings  ♦  used  in  resequer.c .  rig 
input  profiles  into  bottom-to-top  order 

Working  storage  used  in  resequer.c  1  ng  quality  parameter  va. 
into  bottom  or  top  order 

Quality  parameter  value  at  midpoint  of  each  liyer  if  ter 
profile  development  in  appropriate  cuts 


PVALUE( I )  Quality  parameter  values  input  as  i  profile  in  appropriite 
units 


SIGN1  Variable  that  keeps  trick  of  present  lower  prof  1 1 e  point ' 

position  m  rol at  ion  to  present  layer  midpoint 

SIGN*?  Variible  tha*-  keep  i  trick  of  present  higher  prof  t  ie  point 

position  m  rol  it  ion  to  present  layer  midpoint 

SMALL  Essen  t :  illy  cneck  for  equal  ity  of  two  va  1  > 

V  (  1  )  Height  above  oo*  t  om  . t  re  midpoint  of  e  i,.-h  iy>  n 

YV  (  I  )  Height  above  bo*  *  am  of  •'  ivh  ir.p.r  profi.e  4  • 


L  A 


3  3.  If  neither  of  the  above  cases  is  true,  the  program  interpo- 


r  ^ 


lates  to  find  the  layer  certer-Ime  values  using  the  equation 


Aq  *  7- 


where 

qj  ;  parameter  value  at  the  layer  1  center  line 
Aq  -  qy  -  q^  ;  difference  between  parameter  input 

q~>  ;  parameter  value  of  the  input  data  immediately  above 
the  layer  I  center  line 

q,  r  parameter  value  of  the  input  data  point  immediately 
below  the  layer  I  center  line 

d  =  elevation  difference  between  the  layer  I  center 
line  and  the  lower  input  data  point 

l.i  ;  elevation  difference  between  the  input  Jata  points 
immediately  above  and  below  the  layer  1  center  line 

A  schematic  represent at  ion  of  this  computation  is  given  in  Figure  10. 
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34  .  Subrout  1  r.e  Ol’TVEL  controls  tne  o.tl .  ir.g  sequence  of  subrou¬ 
tines  VWE : R,  7 POET,  and  SHIFT.  Based  on  the  information  returned  from 
those  subroutines,  OUT « EL  produces  a  total  withdraws.  profile  and  a 
tot  al  normal  1  zed  velocity  profile.  OUT* EL  also  calculates  the  out*  low 
density ,  temper  at  4re,  and  Mater  quo.ity  concentrat 10ns  as  specified  by 
the  user.  Figure  1 1  shows  the  algorithm  flowchart.  Table  4  iis's  de¬ 
scriptions  of  the  subroutine  variables. 

W 1 thd rawa 1  pr of  1 le  computat ion 

35.  The  withdrawal  profile  computed  by  VPORT  or  7WEIR  is  the  pro¬ 
file  for  a  port  or  weir,  respectively.  The  profile  values  are  given  at 
the  center -line  elevations  of  the  computational  layers.  When  several 
outlets  are  modeled,  each  outlet  generates  an  individual  profile  that 
contributes  to  the  total  withdrawal  from  each  layer.  The  total  with¬ 
drawal  profile  i s  found  by  summing  the  outflow  values  assigned  to  each 
layer  resulting  from  flow  through  each  outlet  (Figure  VL  Before  this 
summut  .on  is  curried  out,  however',  subrout  ire  SHIFT  is  exec  it  >*d  to  ad¬ 
just  the  withdrawal  limits  of  overlapping  withdraw^  '.tones,  such  as 
those  shown  in  Figure  V.  This  accounts  for  reduct ions  in  shear  resis¬ 
tance  m  the  over  1  appir.g  region,  and  the  withdraw, 1.  prof;  ie.s  ar  e 
adjusted  ao cor'd  1  r.g  1  y  . 

Norma  1 i zed  ve 1 oc i t y  pr  of .  . e 
computation  out  flow  par  amet  ers 

3b.  The  total  normalized  velocity  distribution  is  developed  from 
the  total  withdrawal  distribution.  The  withdrawal  from  e  »ch  layer  is 
divided  by  the  maximum  layer  withdrawal  in  the  withdrawal  /ore.  Thus, 
the  layer  of  maximum  discharge  is  assigned  a  r.orm.a  1  :  ze  j  velocity  of  Vo 
and  all  others  will  have  a  velocity  less  than  V!|. 

Outflow  parameters 

37.  The  outflow  parameter  y. a. ues  (density,  •••mv:  at  ire,  jr:q  w.iVm 
qualities)  are  determined  by  a  flow-weighted  aver  ag  .r.g  teem;  p.e 
the  equ.a*  ion 
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Table  4 

OIJIVtL,  Variables 
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Table  4  (Continued) 


Variable 

NPORTS 

NQUAL 

PHDIM(K) 

PHCT(K) 

PVDIM(K) 

QALOL'T(N) 

QPORT 

QPWEIR 

QSUB 

QTEMP 

QUAL( J  ,  I  ) 
QWEIR 

SUMDF 

SUMOUT 

SUMQF 

SUMTF 

TEMOtJT 


_ Def in i t ion _ 

Number  of  selective  withdrawal  ports 

Number  of  quality  parameters  input 

Horizontal  dimension  of  port  K 

Height  above  bottom  of  port  K  center  line 

Vertical  dimension  of  port  K 

4.  L- 

Average  release  concentration  of  NLn  water  quality  parameter, 
appropriate  units 

Logical  variable:  true,  ports  are  present  as  outlet  devices; 
false,  no  ports 

Logical  variable;  true  when  a  port  is  considered  "partially 
submerged"  and  therefore  modeled  as  a  weir;  false  when  the 
above  is  false 

Logical  variable;  true  when  weir  is  submerged;  false  when 
weir  is  not  submerged 

Logical  variable;  true  for  temperature  profile  input;  false 
for  no  temperature  profile 

Value  of  the  Jth  quality  parameter  for  layer  I 

Logical  variable;  true  when  a  weir  is  present  as  an  outlet 
device;  false  when  there  is  no  weir 

Sum  over  layers  of  the  product  of  withdrawal  flow  and  density 

Total  flow  rate  through  all  outlets 

Sum  over  layers  of  the  product  of  withdrawal  flow  and  quality 

Sum  over  layers  of  the  product  of  withdrawal  flow  and 
tempera tu re 

Average  temperature  of  outflow,  degrees  Fahrenheit  or 
Cent igr  ado 


( Cont inued ) 
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Table  4  (Concluded) 


Variable  _ Definition _ 

TEMP(K)  Temperature  value  at  layer  K,  degrees  Fahrenheit  or 
Centigrade 

TOPLIM  Layer  of  pool  where  upper  withdrawal  limit  for  a  given  outlet 
is  located 

V(I)  Velocity  profile  value  at  layer  I  for  flow  through  one  given 

outlet 

VDIM  Assigned  value  of  PVDIM(K)  locally 

VEL(I)  Total  velocity  profile  value  of  layer  I  for  all  outlets 

VHL  Empirical  value  in  the  determination  of  partial  submergence 

of  a  port 

VMAX  Maximum  normalized  velocity  equal  to  1.0 

VS(  I,K)  Velocity  profile  value  of  layer  I  for  the  Kt^'  outlet 

VW  Empirical  value  used  in  the  determination  of  partia. 

submergence  of  a  port 

WANGLE  Assigned  the  value  WTHETA(K)  locally 

WRHGT  Weir  crest  height  above  bottom 

WRLNG  Weir  length 

WTHDRW(I)  Withdrawal  flow  rate  from  layer  I 

WTHETA(K)  Withdrawal  angle  for  port  K 

ZDN(K)  Height  above  bottom  of  the  lower  withdrawal  limit  of  outlet  K 

ZUP(K)  Height  above  bottom  of  the  upper  withdrawal  limit  of  outlet  K 
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Figure  12.  Schematic  representation  of  overlapping 
withdrawal  zones.  The  profiles  are  shifted  (dashed 
lines)  to  better  approximate  actual  profile 


Dci  *  <?i> 

CTOT  =  £q;  ^ 

where 

CTOt  =  total  outflow  value  or  concentration 

Cj  =  value  or  concentration  of  parameter  for  layer  I 
=  withdrawal  from  layer  I 

The  concentrations  or  values  of  parameters  in  each  layer  are  multiplied 
by  the  relative  contribution  of  total  flow  from  that  layer  and  divided 
by  the  total  flow  rate  from  all  outlets.  Then,  these  flow-weighted 
parameter  values  for  each  layer  are  summed,  yielding  the  total  outflow 
parameter  value.  The  outflow  parameter  calculations  are  performed  for 
density,  temperature,  and  quality  constituents. 
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38.  Subroutine  VPORT  is  the  primary  computational  subprogram 
called  by  SELECT  when  port  devices  are  modeled.  VPORT  determines  the 
withdrawal  zone  limits  and  the  associated  flow  rate  profiles  for  a  given 
port  based  on  input  data.  The  reader  is  reminded  that  subroutine  OUTVEL 
performs  tasks  for  the  total  release;  VPORT  performs  its  computations 
for  only  a  single  port  per  call.  Figure  13  shows  the  computational 
flowchart  for  subroutine  VPORT.  Table  5  lists  descriptions  of  the  vari¬ 
ables  used  by  VPORT. 

39.  The  following  description  of  VPORT  is  presented  in  four 
parts:  the  determination  of  the  withdrawal  zone  limits;  the  calculation 
of  normalized  velocities  in  the  withdrawal  zone;  the  generation  of  the 
profile;  and  the  "point  sink"  calculation  to  verify  that  a  point  sink 
assumption  is  valid  for  the  port  being  analyzed. 

Withdrawal  zone  limits 

40.  The  calculation  of  withdrawal  zone  limits  is  based  on  densi- 
metric  Froude  number  formulations  developed  by  Bohan  and  Grace  (1973) 
and  Smith  et  al.  (1987).  The  Bohan  and  Grace  equation  (modified  for  the 
withdrawal  angle  concept  derived  by  Smith  et  al . )  is  used  in  three 
cases.  One  case  is  for  no  interference  of  the  withdrawal  zone  with  a 
boundary;  the  second  is  for  simultaneous  surface  and  bottom  interference 
of  the  withdrawal  zone;  and  the  third  is  for  determining  the  theoretical 
limit  of  a  limit  that  experiences  interference,  while  the  other  limit  is 
free  of  interference. 

41.  The  Smith  et  al.  (1987)  equation  is  used  to  find  the  limit 
that  is  free  of  interference  when  the  other  limit  experiences  inter¬ 
ference.  Boundary  interference  is  defined  to  exist  when  the  surface  or 
bottom  boundaries  of  the  impoundment  lie  within  the  theoretical  limits 
of  the  withdrawal  zone,  e.g.,  the  limit  cannot  form  freely  within  the 
pool  because  the  impoundment  surface  or  bottom  interferes.  The 
determination  of  limits  is  the  same  for  no  interference  and  for  inter¬ 
ference  with  both  boundaries.  The  difference  in  the  two  conditions  is 
not  important  for  the  calculation  of  the  limits,  but  is  important  in 
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THIS  SUBROUTINE  DETERMINES  THE  UPPER  AND  LOWER 
WITHDRAWAL  ZONE  LIMITS  AND  FLOW  DISTRIBUTION  FOR  A  PORT 

- 1 - 

I 


Figure  13.  Flowchart  for  subroutine  VPORT 
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Variable 

BONLIM 

C2 

DELDEN 

DELZ 

DEN(I) 

DENBOT 

DENDIF 

DENLIM 

DENLOW 

DENPRT 

DENTOP 

DENUPP 

DEPTH 

DRBLIM 

DRPBOT 

DRPTOP 

DRTLIM 

DVMAX 

FI 


Table  5 

VPORT  Variables 


Definition 

Assigned  the  value  of  zero  for  bottom  interference  or  DEPTH  for 
surface  interference 

Assigned  the  value  of  WANGLE/H 

Density  difference  from  layer  of  maximum  velocity  to  local 
elevation,  g/cnr 

Layer  thickness 

3 

Density  of  layer  I,  g/cm 

Density  at  the  bottom  of  the  impoundment 

Density  difference  between  fluid  at  layer^of  maximum  velocity 
and  a  particular  withdrawal  limit,  g/cnr 

Assigned  value  of  DENUPP  for  surface  interference  or  DENBOT  for 
bottom  interference 

Density  at  lower  withdrawal  limit,  g/cm 

3 

Density  at  port  center  line,  g/cm 

3 

Density  at  upper  withdrawal  limit,  g/cm 

Density  at  surface  of  the  impoundment 

Depth  of  pool 

Density  difference  between  fluid  at  the  port  center  line  and 
fluid  at  the  port  bottom 

Density  difference  between  fluid  at  the  port  center  line  and 
the  port  invert 

Density  difference  between  fluid  at  the  port  center  line  and 
the  port  top 

Density  difference  between  fluid  at  the  port  center  line  and 
fluid  at  the  port  top 

3 

Density  at  location  of  maximum  velocity,  g/cm 

Value  of  withdrawal  limit  function  QBNG(X)  evaluated  at  XI 

(Continued) 
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Variable 

F2 

F3 

FLORAT 

G 

HI 

H2 

H3 

HGT(I) 

HGTLOW 

HGTPRT 

HGTTOP 

ISURF 

LOWLIM 

LVMAX 

MAX 

PHIFRAC 

PI 

PRTBOT 

PRTTOP 

QBLIM 

QSHIFT 


Table  5  (Continued) 


Definition 

Same  as  FI  evaluated  at  X2 

Same  as  FI  evaluated  at  X3 

Flow  rate  through  a  port 

Gravitational  acceleration 

Value  of  function  QSMITH(X)  evaluated  at  XI 

Same  as  HI  evaluated  at  X2 

Same  as  HI  evaluated  at  X3 

Percentage  of  layer  I  that  is  filled  with  water 

Distance  between  pool  bottom  and  lower  withdrawal  limit 

Distance  between  pool  bottom  and  port  center  line 

Distance  between  pool  bottom  and  upper  withdrawal  limit 

Total  number  of  layers 

Layer  of  lower  withdrawal  limit 

Layer  of  maximum  velocity 

Number  of  search  iterations  allowed  to  determine  withdrawal 
1 imits 

Fraction  of  flow  within  the  truncated  portion  of  the 
theoretical  withdrawal  zone 

Assigned  the  value  of  n  =  3.14159 

Height  of  the  invert  of  port 

Height  of  the  upper  edge  of  port 

Logical  variable;  true  for  bottom  withdrawal  interference; 
false  for  no  interference  from  bottom 

Logical  variable;  true  when  VPORT  is  called  from  SHIFT;  false 
when  call  is  not  from  SHIFT 

(Continued) 
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Variable 

QSINK1 

QSINK2 

QTLIM 

RATIO 

SINK1 

SINK2 

SMALL 

SUBR 

SUM 

TINY 

TOPLIM 

TRUNCZ 

V(I) 

VDIM 

VDIM2 

VD2 

VM 


Table  5  (Continued) 

Definition 

Logical  variable;  true  when  point  sink  description  is  adequate 
for  determination  of  lower  withdrawal  limit;  false  when  the 
above  is  not  true 

Same  as  QSINK1,  except  check  is  for  the  upper  withdrawal  limit 

Logical  variable;  true  for  surface  withdrawal  interference; 
false  for  no  interference  from  surface 

Ratio  of  the  product  of  distance  and  density  difference  between 
the  point  of  maximum  velocity  and  a  local  point  to  the  pro¬ 
duct  of  distance  and  density  difference  between  the  point  of 
maximum  velocity  and  a  given  limit 

Empirical  value  used  in  determination  of  validity  of  point  sink 
description  for  calculations  of  lower  withdrawal  limit 

Same  as  SINK1,  except  now  pertaining  to  upper  withdrawal  limit 

Essentially  zero;  check  for  approximate  equality  between  two 
values 

Subroutine  name 

Sum  over  layers  in  the  withdrawal  zone  of  the  velocity  values 
for  each  layer 

Essentially  zero;  used  in  value  comparisons 

Layer  of  upper  1 i mi t 

For  surface  interference,  it  is  the  distance  between  the  port 
center  line  and  the  surface;  for  bottom  interference,  it  is 
the  distance  between  the  bottom  and  the  port  center  line 

Normalized  velocity  profile  value  at  layer  I  for  a  given  port 

Assigned  as  value  of  PVDIM(K)  locally 

One-half  the  vertical  dimension  of  the  port;  VDIM/ 2 . 0 

Equals  VDIM2  or,  if  upper  edge  of  port  is  above  the  pool  sur¬ 
face,  the  distance  between  the  surface  and  the  port  center 
line 

Scaling  factor 


(Continued) 
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Variable 

VMAX 

WANGLE 

XI 

X2 

X3 

X4 

XDUMY 

XDUMY1 

XDUMY 2 

XDUMY3 

XVMAX 

XXX 

Y 

YVMAX 

ZLOW 

ZONE 

ZONED 

ZTOP 


Table  5  (Concluded) 

Definition 

Maximum  velocity  in  the  normalized  velocity  profile;  assigned 
as  1.0 

Withdrawal  angle;  equals  WTHETA(K)  from  subroutine  OUTVEL 

Elevation  of  a  search  limit 

A  second  limit  search  elevation 

A  third  limit  search  elevation 

A  fourth  limit  search  elevation 

Assigned  0.0;  used  in  ERROR  ()  argument  list 

Same  as  XDUMY 

Same  as  XDUMY 

Same  as  XDUMY 

Location  of  maximum  velocity  relative  to  the  bottom 
Used  in  label  assignment  statement 

Distance  from  elevation  of  maximum  velocity  to  local  elevation 

Location  of  maximum  velocity  referenced  to  lower  withdrawal 
1  imit 

Distance  between  port  center  line  and  lower  withdrawal  limit 

Distance  from  lower  withdrawal  limit  to  upper  withdrawal 
1  imit 

When  surface  or  bottom  interference  exists  (but  not  both),  it 
equals  the  distance  between  the  boundary  of  interference  and 
the  opposing  withdrawal  limit 

Distance  between  port  center  line  and  upper  limit 
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the  calculation  of  the  velocities  within  the  withdrawal  zone. 

42.  The  Bohan  and  Grace  equation,  modified  to  include  the 
withdrawal  angle,  is 

Q  =  e 

z3n  n 

where 

N  =  ^  |  (6) 

P  l 


Q 

Z 

6 

n 

Ap 

P 

g 


flow  rate 

distance  between  the  port  center  line  and  the  upper  or  lower 


withdrawal  limit 

angle  of  withdrawal,  in  rad 

3. 14159  radians 

difference  between  the  dens 
density  at  the  port  center 

density  at  the  port  center 

acceleration  due  to  gravity 


ans 

ty  at  the  upper  or  lower 
ine 

ine 


imit  and  the 


Figure  14  shows  a  schematic  definition  of  these  variables.  Equation  5  is 
transcendental  and  cannot  be  solved  directly  since  Ap  is  a  function  of  Z 
for  the  computation  of  N  (Equation  6).  Therefore,  an  iterative  technique  is 
needed  to  solve  the  equation  for  Z  .  Since  Equation  5  and  the  Smith  et  al . 
(1987)  equation,  which  follows,  are  transcendental  and  solved  through 
iteration,  a  description  of  the  iterative  solution  algorithm  is  withheld  until 
after  the  Smith  et  al .  equation  is  presented. 

43.  Smith  et  al .  (1987)  developed  an  equation  that  is  an  analytical 
extension  of  Equation  5  and  is  used  to  locate  the  limit  that  is  free  of 
interference  when  the  other  limit  experiences  boundary  interference  (Fig¬ 
ure  15).  The  equation  is 


Q'  =  0. 1 250  6 
D'3N  x3  n 


(7) 
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Figure  14.  Variable  definition  schematic 

where 


where 

Q'  =  discharge  flow  rate  from  the  withdrawal  zone 

D'  =  distance  between  free  withdrawal  limit  and  boundary  of 
interference 

b  =  distance  between  port  center  line  and  boundary  of 
interference 


A  schematic  representation  of  this  computation  is  given  in  Figure  15 
Equation  7  is  iteratively  solved  for  D'  .  With  D'  known,  the 


T 


Figure  15.  Schematic  of  a  withdrawal  zone 
with  surface  interference 


location  of  the  free  limit  (a  distance  D'  from  the  limit  of 
interference)  is  computed. 

44.  As  mentioned  earlier.  Equations  5  and  7  are  transcendental 
and  therefore  require  an  iterative  solution.  A  hal f- interval  search  al 
gorithm  is  used  in  SELECT  and  is  discussed  in  the  following  paragraphs. 
Half-interval  search 

45.  Equations  5  and  7  are  rearranged  to  give 


Q  -  Z3N  ? 

ll 


(  10) 


Q’  -  (D,3M) 


b/D' 


b/D' 


3in  1  -  b/D'  "  1  -  b/D' 


('  * 


il  =  ° 


(ID 


These  equations  are  then  used  to  iteratively  solve  for  Z  (Equation  10) 
and  D '  (Equation  11).  Note  that  if.  during  the  iteration  process,  an 
appropr  late  Z  or  D'  is  chosen  and  substituted  into  Equation  10  or 
11,  respectively,  the  above  equalities  become  true  and  the  assumed  <- 
or  D'  would  be  considered  the  solution  to  the  equation.  It  a  smaller 
or  larger  value  is  chosen,  the  left-hand  side  (LHS)  of  the  equalities 
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will  be  positive  or  negative,  respectively.  By  systematically  evalu¬ 
ating  the  magnitude  and  the  sign  of  the  l.HS  for  various  values  of  11 
or  1)'  ,  convergence  to  the  solution  can  be  achieved. 


4b 


For  the  sake  of  illustration,  the  following  descript 


t  ha 


inch  for  a  lower  limit  in  a  withdrawal  '.’.ore  free  of  in 
on .  w'e  i»  e  so.virg  Equat  ion  ’O.  Note  that  the  nil:-: 


ter  f,-.  r 


searcn  Jet  er  r 


:  r :  e 


i  m ; 


at  a  time. 


i.  To  begin  the  iter  it  ior.  process,  t  w>  .•  points  ire  .coat*  d  : 

p.-a;rit  is  iss  imed  to  lie  above  the  1  :  m :  t  •  ...suai  ,y  tr.e 
out . et  center  - .  i  tie  elevat  ion  '.</  -  o."  si'ce  XZ  .  s 
me  mured  from  the  port  center  1  .r.e  downward);  the  other 
point  is  be.. aw  tr.e  limit  (a  distance  X’  relow  tr.e  pert 
center  line,  usu  illy  at  the  bottom).  Fig  ire  *ta  : 1 1ns- 
trites  this  step. 


b . 


A  third  point  ( X  3 )  is  determined  that  is  raltViy  be¬ 
tween  X’  and  X?  ,  her.ee  ,  the  ha  1  f-  ir  terv  a  1  search 
technique.  Point  X  3  is  assumed  to  be  the  withdrawal 
limit,  and  its  Z  value  ir.d  corresponding  density  dif¬ 
ference  are  substituted  into  Equation  ’o.  If  the  THE  is 
i.ero  or  within  a  toler  ible  deviation  from  .tero  (  *u  per¬ 


cent  of 

the  layer  t 

h i c Kress 

'  ,  X  * 

:  s  taken  is  the  act  .a 

limit. 

I  f  the'  IMS 

of  Eqwat 

ion  'o 

is  negative,  then  X 3 

is  beiow 

the  actual 

limit. 

if  the 

LHS  is  positive,  X3 

is  above  the  actual  limit. 


c . 


d. 


If  X3  is  not  the  solution  after  the  first  iteration  is 
complete,  then  X3  replaces  the  limit  (XT  or  X2 )  that 
lies  on  the  same  side  of  the  limit  as  it  does.  Thus,  a 
new  search  region,  which  is  the  half  of  the  original 
search  region  containing  the  solution,  will  be  subjected 
to  the  same  searcn  technique.  A  new  midpoint  (X4)  is 
found  halfway  between  X3  and  the  remaining  point  (X’  or 
>!<?),  at  a  quarter-point  of  the  original  search  region. 

In  this  example,  X4  is  located  on  the  opposite  side  of 
the  limit  from  X 3  (Figure  ’6b).  It  should  be  noted 
that  XU  does  not  always  reside  on  the  opposite  side  of 
the  limit  f rom  X3  - 

The  new  point,  XU,  is  assumed  to  be  the  withdrawal  limit, 
and  its  Z  value  and  corresponding  density  difference 
ire  substituted  into  Equation  ’0.  The  process  described 
in  c  repeats  itself  until  successive  estimates  for 
(XI  and  >14)  are  found  that  lie  within  i  to.er  io.e  d.  - 
tune*-,  from  each  other  i  '0  percent  of  tr.e  .  ever  thick¬ 
ness).  The  v 3  or  xa  va i lie  is  then  issig'U'd  is  t he 
ict  ua  1  1 im  i  -  . 
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LOWER  LIMIT  - 1 
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a.  Initial  estimate  of  lower  limit  ( X  3 ) 


b.  Second  estimate  of  lower  limit  ( X4 ) 

Figure  't.  Illustration  of  search  for 
lower  withdrawal  limit 


e . 


If  the  search  does  not  converge  within  10  iterations,  an 
error  message  is  output  and  program  execution  is 
terminated . 


47.  The  following  points  should  also  be  noted: 

a.  When  one  limit  experiences  interference  and  the  other 
does  not,  Equation  11  is  used  rather  than  Equation  10  in 
the  search  algorithm  and  the  number  of  iterations  allowed 
is  increased  from  10  to  20. 

b.  Although  boundary  interference  may  physically  constrain  a 
limit  to  the  given  boundary,  a  theoretical  value  for  that 
limit  is  determined  assuming  no  interference.  This 
allows  the  computation  of  the  normalized  velocity  profile 
based  upon  the  theoretical  extent  of  the  limits,  thereby 
expressing  the  velocity  at  the  boundary  in  terms  of  its 
theoretical  potential.  The  zone  is  truncated  at  the 
boundary,  and  all  velocity  values  outside  the  boundary 
are  omitted  (Figure  17)  in  subsequent  computations. 


—  — ■  WITHDRAWAL  ZONE 

-  ■—  VELOCITY  PROFILE 


Figure  17.  Velocities  calculated  above 
the  water  surface  are  truncated  from 
velocity  profile 


Velocity  profile  computation 

48.  The  velocity  profile  computations  are  based  on  the  vertical 
location  of  the  maximum  velocity  in  the  withdrawal  zone.  The  location 
of  maximum  velocity  is  given  by  the  equation  (Bohan  and  Grace  1973) 
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H  *  sin 


(12) 


where 

=  distance  from  lower  limit  to  elevation  of  maximum  velocity 

H  =  vertical  distance  between  the  upper  and  lower  withdrawal 
1 imits 

=  vertical  distance  between  the  outlet  center  line  and  the 
lower  limit 


Since  the  elevation  of  the  lower  limit  is  known,  the  elevation  (and  the 
layer)  of  maximum  velocity  can  be  determined.  With  the  location  of  the 
layer  of  maximum  velocity  known,  the  velocity  distribution  can  be 
determined . 


49.  Bohan  and  Grace  (1973)  found  that  Equations  13  and  14  de¬ 
scribed  the  vertical  velocity  distribution  for  withdrawal  zones  experi¬ 
encing  boundary  interference  and  for  zones  free  of  interference, 
respectively . 
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where 
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(14) 


V  =  velocity  value  within  a  given  layer  of  the  withdrawal 
zone 


^MAX  =  maximum  layer  velocity  value  in  the  withdrawal  zone 

y  =  vertical  distance  from  the  elevation  of  maximum 
velocity  to  that  of  the  given  layer 

Y  =  vertical  distance  between  the  elevation  of  maximum 
velocity  and  that  of  the  upper  or  lower  limit  as 
appropriate 

Ao  =  difference  in  density  between  that  at  the  elevation  of 
maximum  velocity  and  that  at  the  given  layer 

AdMAX  "  difference  *n  density  between  that  at  the  iovat  i or:  of 

maximum  velocity  and  that  at  the  elevat ion  of  the  upp*e  or 
lower  limit  as  ippropriate 
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Figure  18.  Schematic  definition  of  variables 
for  Equations  13  and  14 


A  definition  sketch  for  these  variables  is  given  in  Figure  18.  Inspec¬ 
tion  of  Equations  13  or  14  reveals  that  the  product  (y/Y ) ( Ao/ Ao^^ ) 
has  a  maximum  value  of  1.0.  Therefore,  the  maximum  value  of  the  right- 
hand  side  of  this  equation  is  0.0.  Since  these  velocity  values  will 
ultimately  be  scaled  to  provide  a  withdrawal  profile  (shown  later),  the 
assignment  of  VMAX  acts  only  to  change  the  constant  used  for  scaling 
these  profiles.  In  order  to  develop  the  normalized  velocity  distribu¬ 
tion  (velocities  with  values  between  0  and  1),  ^maX  ass^Snec*  in 
VPORT  to  be  1.0.  Thus,  the  V  computed  in  Equations  13  and  14  is  also 
a  normalized  velocity.  The  computation  of  velocity  for  each  layer  is 
then  a  straightforward  calculation  since  the  variables  y  ,  Y  ,  Ao^^  , 
and  Ao  are  known  for  each  layer.  The  computation  of  the  entire 
velocity  profile  is  accomplished  by  individual  operations  for  each 
portion  of  the  withdrawal  zone  above  and  below  the  elevation  of  the 
point  of  maximum  velocity. 


50.  The  maximum  velocity  (1.0)  will  be  assigned  to  all  withdrawal 
layers  above  or  below  the  elevation  of  maximum  velocity  if  the  layer 
densities  do  not  vary  from  the  density  at  the  elevation  of  maximum 
velocity,  i . e . ,  Ao  =  0  . 


Conversion  of 
velocities  to  flow  rates 


51.  Once  the  normalized  velocity  distribution  is  determined  for  a 
port,  the  withdrawal  profile,  i.e.,  a  flow  rate,  is  calculated  for  each 
layer  based  on  the  total  flow  rate  through  the  port.  The  equation  used 
to  compute  the  withdrawal  profile  is 


where 

qj  =  withdrawal  from  the  I*'*1  layer 

L.  L*. 

Vt  =  normalized  velocity  at  the  layer 

Qt  =  total  flow  rate  through  a  port 
Point  sink  assumption 

52.  Or.e  of  the  basic  assumptions  in  the  theory  underlying  SELECT 
is  that  ports  may  be  considered  point  sinks,  i.e.,  port  dimensions  are 
insignificant  compared  to  withdrawal  zone  thickness.  To  ensure  that  the 
outlet  configuration  is  consistent  with  the  point  sink  assumptions,  the 
program  performs  empirically  based  calculations  (see  next  paragraph)  to 
assess  whether  the  point  sink  assumption  is  violated.  If  the  assumption 
has  been  violated,  a  warning  statement  is  issued  in  the  output  alerting 
the  user  to  the  violation  of  the  assumption.  Should  the  user  receive 
such  a  statement,  more  extensive  modeling  may  be  required. 

53.  Using  the  illustration  in  Figure  19  to  aid  in  the  description 
of  the  variables,  the  following  inequalities  are  defined  to  ascertain 
the  applicability  of  the  point  sink  assumption: 


(Ap.  *  Z.  ) 
(Apb  *  h) ' 


3.0 


(APu  *  2U) 

(Ap^  *  h) 


3.0 


(16) 


(17) 
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Figure  19.  Definition  sketch  of  variables  for 
point  sink  assumptions 


where 


Ap  =  density  difference  between  the  port  center  line  and  the 
predicted  lower  limit 


=  distance  from  the  port  center  line  to  the  lower  limit 

Apg  =  density  difference  between  the  port  center  line  and  the 
invert  of  the  port 


h  =  one-half  the  vertical  dimension  of  the  port 


Ap^  =  density  difference  between  the  port  center  line  and  the 
predicted  upper  limit 


Zu  =  distance  from  the  port  center  line  and  the  upper  limit 

Ap^  =  density  difference  between  the  port  center  line  and  the  top 
1  of  the  port 


When  Equation  16  is  true,  a  point  sink  description  of  withdrawal  through 
the  port  is  not  applicable  for  determining  the  lower  limit.  When  it  is 
false,  a  point  sink  description  is  valid.  When  Equation  17  is  true,  a 
point  sink  description  of  withdrawal  through  the  port  is  not  valid  for 
the  upper  limit.  When  it  is  false,  a  point  sink  description  is  valid. 
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VWEIR 


r  i 


L  A 


54.  Subroutine  VWEIR  is  the  computational  subprogram  called  by 
OUTVEL  when  an  outlet  is  modeled  as  a  weir.  VWEIR  determines  the  with¬ 
drawal  zone  limits  and  associated  profile  for  withdrawal  over  a  weir 
under  the  assumption  that  the  weir  crest  is  above  the  thermocline.  If 
this  assumption  is  violated,  SELECT  may  produce  erroneous  output.  It 
should  be  noted  that  the  impoundment  surface  is  taken  as  the  upper  limit 
for  any  type  of  weir  modeled.  Also,  if  the  bottom  interferes  with  the 
lower  limit,  the  bottom  is  taken  as  the  lower  limit. 

55.  The  equation  used  in  VWEIR  to  calculate  the  withdrawal  zone 
limit  is  based  on  studies  and  analysis  performed  by  Grace  (1971)  and  ad¬ 
ditional  analytical  and  empirical  development  at  the  WES.  Subroutine 
VWEIR  incorporates  a  formulation  based  on  the  densimetric  Froude 
number  FQ  to  describe  weir  withdrawal  such  that 


where 

V 

Hw 
Ap 

0 

g 
Z 

C 

Z  +  H 

C  r  0.78  and  D  -  0.70  for  — - — -  v  2.0 

w 

56.  Rearranging  Equation  18  yields 


=  average  velocity  in  the  withdrawal  zone 
=  head  above  the  weir  crest  elevation 

=  difference  in  density  of  fluid  at  the  weir  crest  and  the 
lower  limit 

=  density  at  the  weir  crest  elevation 
=  acceleration  due  to  gravity 

=  distance  between  the  crest  elevation  and  the  lower 
withdrawal  limit 

Z  +  H 

-  0.54  and  D  =  0  for  — p — —  2  2.0 
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(19) 


With  Equation  19,  it  is  possible  to  solve  for  the  withdrawal  limit  Z 
by  iteration.  The  half-interval  search,  outlined  in  VPORT,  is  used  in  a 
similar  manner  in  VWEIR  except  that  Equation  19  is  used  as  the  iterative 
equation.  Figure  20  shows  the  computational  flowchart  of  VWEIR. 

Table  6  lists  descriptions  of  the  variables  used  in  subroutine  VWEIR. 
Velocity  profile 

57.  The  calculation  of  a  normalized  velocity  profile  for  a  weir 
is  based  on  the  equations  developed  by  Bohan  and  Grace  (1973).  Two  con¬ 
ditions  influence  which  equation  governs  the  description  of  the  profile: 
(a)  whether  the  portion  above  or  below  the  elevation  of  maximum  velocity 
is  being  described,  and  (b)  whether  the  weir  is  free  or  submerged.  The 
following  listing  accounts  for  the  conditions  under  which  the  equations 
are  used. 


58.  Submerged  weir.  The  location  of  the  point  of  maximum  veloc¬ 
ity  is  computed  exactly  as  it  is  for  an  orifice,  as  described  in  para¬ 
graph  51  of  the  subroutine  VPORT  description.  The  portion  of  the  pro¬ 
file  above  the  elevation  of  maximum  velocity  is  described  by 

2 


V. 


where 


MAX 


=  1  - 


Vp2  ^ 
\V°2nv 


(20) 


Vp  =  layer  velocity  in  the  zone  of  withdrawal  at  a  distance 
y 2  above  the  elevation  of  maximum  velocity 

^MAX  =  max^mum  layer  velocity  in  the  withdrawal  zone,  equals  1.0 
for  normalized  distribution  (see  discussion  of  V^^  in 
section  on  VPORT) 


y2 


Ap 


2 


Y 


2 


Ad 


2m 


vertical  distance  from  the  elevation  of  maximum  velocity 
to  that  of  the  corresponding  layer  velocity  V2 

density  difference  of  fluid  between  the  elevations  of  the 
maximum  velocity  and  the  corresponding  layer  velocity  V^ 

vertical  distance  from  the  elevation  of  the  maximum 
velocity  to  the  upper  limit  of  the  zone  of  withdrawal 

density  difference  of  fluid  between  the  elevation  of  the 
maximum  velocity  and  the  elevation  of  the  upper  limit 
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THIS  SUBROUTINE  CALCULATES  THE  WITHDRAWAL  LIMITS 
AND  VELOCITY  PROFILE  FOR  WEIR  FLOW 
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Figure  20.  Flowchart  for  subroutine  VWEIR 
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Table  6 

VWEIR  Variables 


Variable 

A 

AVGVEL 

B 

C 

COEF 

CREST 

D 

DELDEN 

DELZ 

DEN(I) 

DENDIF 

DENLOW 

DENTOP 

DEPTH 

DVMAX 

EXPNT 

FI 

F2 

F3 


_ Definition _ 

Coefficient  used  in  determining  the  velocity  profile  exponent 
as  a  function  of  the  discharge  coefficient 

Average  velocity  over  weir 

Coefficient  used  in  determining  the  velocity  profile  exponent 
as  a  function  of  discharge  coefficient 

Coefficient  used  in  the  FWEIR(X)  function;  has  values  of  0.5^4 
or  0.78 

Weir  discharge  coefficient 
Weir  crest  height  above  bottom 

Second  coefficient  used  as  C;  possible  values  are  0.0  to  0.70 

Density  difference  between  fluid  at  layer  of  maximum  velocity 
and  fluid  at  a  local  elevation 

Layer  thickness 

-j 

Density  of  Layer  I,  g/orn-’ 

Density  difference  between  fluid  at  layer  of  maximum  velocity 
and  fluid  at  a  withdrawal  limit,  g/cm-5 

"j 

Density  at  lower  withdrawal  limit,  g/cm-’ 

Density  at  upper  withdrawal  limit,  g/cmJ 
Depth  of  pool 

a 

Density  at  location  of  maximum  velocity,  g/cm-’ 

Exponent  for  velocity  profile  equation  for  free  weir  flow 
Value  of  withdrawal  limit  function  FWEIR(X)  evaluated  at  XI 
Same  as  FI  evaluated  at  X2 
Same  as  FI  evaluated  at  X3 


( Continued ) 


( Sheet  1  of  A ) 


Table  6  (Continued) 


Variable 

FLORAT 

G 

HEAD 

HGT( I ) 

HGTLOW 

HGTTOP 

ISURF 

ITMAX 

LENGTH 

LOWLIM 

LVMAX 

P 

Q1 

Q2 

QZ 

QBLIM 

QSHIFT 

QSUB 


_ Definition _ 

Flow  rate  over  weir 

Gravitational  acceleration 

Head  above  weir  crest 

Percentage  of  layer  I  that  is  filled  with  water 
Height  above  bottom  of  lower  limit 
Height  above  bottom  of  upper  limit 
Total  number  of  layers 

Number  of  search  iterations  allowed  to  determine  withdrawal 
limits 

Length  of  weir  crest 

Layer  of  lower  limit 

Layer  of  maximum  velocity 

Exponent  for  velocity  profile  function 

Logical  variable;  true  for  positive  withdrawal  limit 
function;  false  for  negative 

Logical  variable;  true  for  positive  withdrawal  limit 
function;  false  for  negative 

Logical  variable;  true  when  the  vertical  distance  between  the 

crest  and  the  lower  unit  is  less  than  the  head  above  the 

crest,  i.e.,  Z  /H  1  ;  false,  when  the  above  is  not  true 
o  w 

Logical  variable;  true  for  bottom  withdrawal  interference ; 
false  for  no  interference  from  bottom 

Logical  variable;  true  when  VWEIR  is  called  from  SHIFT;  false 
when  not  called  from  SHIFT 

Logical  variable;  true  when  the  weir  is  subir»*rg‘'  1 1  fa  i  so  wh»\n 
not  submerged 


s  'or  t  i 
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Table  6  (Continued) 


Variable 

QTLIM 

QZ 

RATIO 

SMALL 

SUM 

SUBR 

TOPLIM 

V(I) 

VM 

VMAX 

WRDEN 

XI 

X2 

X3 

X4 

XCHECK 

XDUMY 

XDUMY1 

XDUMY2 


_ Definition _ 

Logical  variable;  true  for  surface  withdrawal  interference; 
false  for  no  interference  from  surface 

Logical  variable;  true  when  the  vertical  distance  between  the 
crest  and  the  lower  limit  is  less  than  the  head  above 

Ratio  of  the  product  of  distance  and  density  difference 
between  the  point  of  maximum  velocity  and  a  local  point  to 
the  product  of  the  distance  and  density  difference  between 
the  point  of  maximum  velocity  and  a  given  limit 

Essentially  zero;  check  for  approximate  equality  of  two 
values 

Sum  over  layers  of  the  velocities  for  each  layer 

Subroutine  name 

Upper  withdrawal  limit 

Normalized  velocity  profile  for  weir 

Scaling  term  equal  to  FLORAT/SUM 

Maximum  velocity  in  the  normalized  velocity  profile,  1.0 

Density  at  weir  crest,  g/cm^ 

Elevation  of  an  initial  search  limit 

Elevation  of  a  second  search  limit 

Elevation  of  a  third  search  limit 

Elevation  of  a  fourth  search  limit 

Local  variable  for  the  value  of  Z  ♦  H  /H 

w  w 

Assigned  0.0;  used  in  ERROR  ()  argument  list 
Same  as  XDUMY 
Same  as  XDUMY 
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Table  6  (Concluded) 


Variable 

XDUMY3 

XVMAX 

Y 

YLOW 

YTOP 

YVMAX 

ZLOW 

ZONE 


_  < 

_ Definition _ 

Same  as  XDUMY 

Distance  from  bottom  to  elevation  of  maximum  velocity 

Distance  from  location  of  maximum  velocity  to  local  elevation 

Distance  from  location  of  maximum  velocity  to  lower 
withdrawal  limit 

Distance  from  location  of  maximum  velocity  to  upper 
withdrawal  limit 

Location  of  maximum  velocity  referenced  to  lower  withdrawal 
1  imit 

Difference  between  crest  elevation  and  lower  withdrawal  limit 

Distance  from  lower  withdrawal  limit  to  upper  withdrawal 
limit 
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59.  A  description  of  the  portion  of  the  profile  below  the  eleva¬ 
tion  of  maximum  velocity  for  a  submerged  weir  is  given  by 
a.  Without  bottom  interference 


V 


MAX 


1  - 


yiA°1 

Y1A°1m 


(21) 


b.  With  bottom  interference 


MAX 


=  1  - 


^1Ap1 
1  Y1A°1m 


(22) 


where 


V-|  =  layer  velocity  in  the  zone  of  withdrawal  at  a  distance  y1 
below  the  elevation  of  maximum  velocity 


Vmax  =  maximum  layer  velocity  in  the  withdrawal  zone;  taken  as 

1.0  for  normalized  distribution  (see  discussion  in 

section  on  VPORT) 

yi  =  vertical  distance  from  the  elevation  of  maximum  velocity 
to  that  of  the  corresponding  layer  velocity  V1 


=  density  difference  of  fluid  between  the  elevations  of  the 
maximum  velocity  and  the  corresponding  layer  velocity  V1 

=  vertical  distance  from  the  elevation  of  the  maximum 
velocity  to  the  lower  limit  of  the  zone  of  withdrawal 


=  density  difference  of  fluid  between  the  elevations  of  the 
maximum  velocity  and  the  elevation  of  the  lower  limit 


60.  Free  weir.  A  description  of  the  portion  of  the  profile  below 
the  elevation  of  maximum  velocity  is  given  by 


ylAo1  \ 
Y1Ao1m/ 


(23) 


where  the  exponent  P  varies  with  the  user's  choice  of  a  weir  coeffi¬ 
cient  COEF  such  that  for 


|C0EF 

-  3  -  00 1 

;  0.1  . 

p 

=  1.5 

COEF 

-  3  -  33 1 

■  0.1  . 

p 

-  o.h 

|  COEF 

-  4.10 

0 .  1  . 

p 

=  0.2 

^  A 


where  |  j  denotes  the  absolute  value  of  the  expression.  If  none  of  the 
above  is  true,  P  -  4.35  -  (1.04)C0EF  . 

61.  The  velocity  for  each  layer  is  found  directly  since  all  vari¬ 
ables  yi  ,  <  A p j m  ,  and  Ap.  (i  =  1  or  2)  are  known  for  each 

layer  in  the  withdrawal  zone. 

Special  considerations 

62.  The  maximum  normalized  velocity  (1.0)  is  assigned  for  each 
withdrawal  layer  above  and  below  the  elevation  of  maximum  velocity  if 
the  layer's  density  does  not  vary  from  the  density  at  the  elevation  of 
maximum  velocity,  i.e.,  Ap.  =  0  . 

Conversion  of 
velocities  to  flow  rates 

63.  Once  the  normalized  velocity  profile  is  determined  for  the 
weir,  the  withdrawal  profile  is  calculated  based  on  the  total  flow  rate 
over  the  weir.  The  flow  value  for  each  layer  is  scaled  to  sum  to  the 
magnitude  of  the  total  outflow  over  the  weir.  Equation  15  (in  the  VPORT 
section)  is  used  to  calculate  the  layer  withdrawals  based  on  the  normal¬ 
ized  velocities. 
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SHIFT 


Descript  ion 


64.  Subroutine  SHIFT  adjusts  the  limits  of  withdrawal  zones  that 
overlap  vertically  when  mulltilevel  outlets  are  operated.  The  adjust¬ 
ment  is  necessary  to  correct  the  difference  between  the  simple  super¬ 
position  of  the  predicted  withdrawal  zones  for  each  outlet  and  the  act¬ 
ual  zone  as  observed  during  testing  (see  Figure  21).  It  is  believed 


LEGEND 

— — — — —  PREDICTED  WITHDRAWAL  PROF  ILE  BASED  ON  SINGLE 

outlet  operation 

—  ———  —  —  ADJUSTED  WITHDRAWAL  ZONE  DUE  TO  OVERLAPPING 
OF  INDIVIDUAL  OUTLET  WITHDRAWAL  ZONES 
•  PREDICTED  PROFILE  8ASED  ON  SUMMATION  OF 

ADJUSTED  WITHDRAWAL  ZONES 

Figure  21.  Schematic  diagram  of  differences  between 
initially  calculated  theoretical  withdrawal  zones 
and  shifted  withdrawal  zones 


-.4 


that  the  difference  exists  because  the  fluid  motion  in  one  withdrawal 
zone  tends  to  help  the  fluid  movement  in  the  other  zone  overcome  the 
shear  resistance  forces  in  the  region  of  overlap.  Since  the  predicted 
velocity  profile  for  each  individual  outlet  does  not  take  into  account 
this  apparent  reduction  in  shear  resistance,  the  superposition  of  the 
individually  predicted  profiles  will  not  account  for  it  either. 

65.  Bohan  and  Gloriod  (1972)  found  that  the  discrepancy  between  the 
simple  superposition  of  withdrawal  zones  and  the  actual  zone  was  rela¬ 
tively  consistent  in  laboratory  testing.  They  concluded  that  the  limits 
of  the  overlapping  zones  could  be  systematically  adjusted  to  increase 
the  zone  thickness,  thereby  modifying  the  velocity  distribution  to  pro¬ 
duce  individual  withdrawal  zones  whose  superposition  closely  approxi¬ 
mated  the  actual  zone.  Bohan  and  Gloriod  determined  that  the  adjustment 
was  a  function  of  the  amount  of  overlap  of  the  two  individual  zones,  the 
vertical  spacing  between  the  outlets,  the  density  distribution  of  the 
impoundment,  and  the  average  velocity  of  each  withdrawal  zore  in  the 
region  of  overlap.  The  equation  developed  and  used  in  SHIFT  is 

V, 

] _  -  A  7A  /  D —  \  1 

(24) 
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f 842 


=  0.70  1.25 

o, 


where 


=  average  velocity  in  the  region  of  overlap  of  the  upper  or 
lower  withdrawal  zones  as  appropriate 

Ap  c  density  difference  between  the  old  limit  and  the  shifted 
limit 

p  =  density  at  the  original  limit 
g  =  acceleration  due  to  gravity 
Az  =  vertical  shift  of  the  withdrawal  limit 
h  =  vertical  distance  of  overlap 
Hq  =  vertical  distance  between  ports 

66.  Rearranging,  Equation  24  becomes 

1.25 


Vh  -  0.7 


ft)  v 


gAz  =  0 


(25) 
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The  vertical  shift  Az  can  be  found  by  iteration.  The  iterative  algo¬ 
rithm  used  is  similar  to  the  half-interval  search  described  in  the  VPORT 
section.  A  flowchart  of  the  SHIFT  subroutine  is  shown  in  Figure  22. 
Table  7  describes  the  variables  used  in  this  algorithm. 

Special  considerations 

67.  If  the  surface  interferes  with  the  new  shifted  limit  and  the 

_7 

density  at  the  surface  is  within  1  «  10  of  density  at  the  port,  the 
shifted  limit  is  assigned  to  the  surface  elevation.  Also,  if  the  bottom 

interferes  with  the  new  shifted  limit  and  the  density  at  the  bottom  is 

_7 

within  1  x  10  of  the  density  at  the  port,  the  bottom  is  assigned  as 
the  limit.  Thus,  the  upper  limit  of  the  lower  port's  withdrawal  zone 
may  experience  surface  interference  and  the  lower  limit  of  the  upper 
port's  withdrawal  zone  may  experience  bottom  interference. 

68.  After  the  new  limits  are  found  for  each  withdrawal  zone, 

SHIFT  calls  VPORT  or  VWEIR  to  recompute  the  flow  rate  profile  for  each 
zone  based  on  the  new  limits  and  then  transfers  program  control  back  to 
subroutine  OUTVEL. 


Figure  22.  Flowchart  for  subroutine  SHIFT 
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Table  7 

SHIFT  Variables 


Variable 

CREST 

DELZ 

DEN(I) 

DENS  1 

DENS2 

DEPTH 

FI 

F2 

F3 

FLORAT 

FLOW(K) 

G 

H 

HGT( I ) 
HGTLOW 
HGTPRT 
HGTTOP 
HO 

HTEST 


_ Definition _ 

Weir  crest  height  above  bottom 

Layer  thickness 

Density  of  layer  I,  g/cmJ 

Density  at  elevation  of  lower  withdrawal  limit  for  the  outlet 
K  +  1 ,  g/crn^ 

Density  at  elevation  of  upper  withdrawal  limit  for  the  outlet 
K,  g/cm-^  (note:  the  elevation  of  port  K  is  below  that  of 
port  K  +  1 ) 

Depth  of  pool 

Value  of  withdrawal  limit  shift  function  FSHIFT  (VH,  X,  D,  ZL) 
evaluated  at  XI 

Same  as  FI  evaluated  at  X2 

Same  as  FI  evaluated  at  X3 

Flow  rate  through  one  port  or  over  a  weir 

Flow  rate  through  port  K 

Gravitational  acceleration 

Distance  between  upper  withdrawal  limit  of  outlet  K  and  lower 
withdrawal  limit  of  outlet  K  +  1 

Percentage  of  layer  I  that  is  filled  with  water 

Height  above  bottom  of  lower  withdrawal  limit 

Height  above  bottom  of  center  line  of  port 

Height  above  bottom  of  upper  withdrawal  limit 

Distance  between  vertical  location  of  outlets  K  and  K  +  1 

Computed  value  used  in  withdrawal  limit  shift  function 

( Continued ) 
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Table  7  (Continued) 


Variable 

ISURF 

KFILE 

LI 

L2 

LAY 

LENGTH 

LLOW(K) 

LOWLIM 

LTOP(K) 

MAX 

NOUTS 

PHGT(K) 

Q1 

Q2 

QBLIM 

QPRINT 

QSBLIM 

QSHIFT 


_ DePinition _ 

Total  number  of  layers 

File  code;  KFILE  =  06  is  output  file 

Layer  containing  lower  withdrawal  limit  of  outlet  K  +  1 

Layer  containing  upper  withdrawal  limit  of  outlet  K 

Number  of  layers  between  LI  and  L 2 

Length  of  weir  crest 

Layer  of  pool  at  which  lower  withdrawal  limit  for  outlet  K  is 
located 

Layer  of  lower  limit 

Layer  of  pool  at  which  upper  withdrawal  limit  for  outlet  K  is 
located 

Number  of  search  iterations  allowed  to  determine  withdrawal 
limits 

Number  of  selective  withdrawal  outlets 

Height  above  bottom  of  port  K  center  line 

Logical  variable;  true  for  positive  value  for  withdrawal  limit 
function  FSHIFT  (VH,  XI,  D,  ZL);  false,  negative 

Same  as  Q1  for  FSHIFT  evaluated  at  X2 

Logical  variable;  true  for  bottom  withdrawal  interference; 
false  for  no  interference  from  bottom 

Logical  variable;  initially  true,  assigned  false  after  print 
statement  is  executed;  no  other  reassignment 

Logical  variable;  true  when  bottom  withdrawal  interference 
occurs  after  shifting  limits;  false  when  no  such 
interference  from  bottom  occurs 

Logical  variable;  true  when  VPORT  or  VWEIR  is  called;  false 
when  return  back  to  SHIFT 

( Continued ) 
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Table  7  (Continued) 


Variable 

QSTLIM 

QTLIM 

QWEIR 

SMALL 

SUBR 

TINY 

TOPLIM 

V(I) 

VH1 

VH2 

VS(I,K) 

WRFLOW 

WRHGT 

WRLNG 

XI 

X2 

X3 

X4 

XDUMY 


_ Def in  it  ion _ 

Logical  variable;  true  when  top  withdrawal  interference  occurs 
after  shifting  limits;  false  when  no  such  top  interference 
occurs 

Logical  variable;  true  for  surface  withdrawal  interference; 
false  for  no  surface  interference 

Logical  variable;  true  when  a  weir  exists  as  an  outlet  device; 
false  when  there  is  no  weir 

Essentially  zero;  used  in  value  comparisons 

Subroutine  name 

Essentially  zero;  used  in  value  comparisons 
Layer  of  upper  limit 

Velocity  profile  value  of  layer  I  for  an  outlet 

Average  outflow  of  the  outlet  K  in  the  zone  of  overlap  of  the 
K  and  K  +  1  outlets 

Average  outflow  of  outlet  K  +  1  in  the  zone  of  overlap  of  the 
K  and  K  +  1  outlets 

Velocity  profile  value  of  layer  I  for  the  K  outlet 

Discharge  over  weir 

Weir  crest  height  above  bottom 

Weir  length 

Elevation  of  an  initial  search  limit 
Elevation  of  a  second  search  limit 
Elevation  of  a  third  search  limit 
Elevation  of  a  fourth  search  limit 
Assigned  0.0;  used  in  ERROR  ()  argument  list 

( Continued ) 
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Table  7  (Concluded) 


Variable 

XDUMY1 

XDUMY2 

XDUMY3 

XXX 

ZDN(K) 

ZL1 

ZL2 


Def in i t ion 


Same  as  XDUMY 
Same  as  XDUMY 
Same  as  XDUMY 

Used  in  label  assignment  statement 

Height  above  bottom  of  the  lower  withdrawal  limit  for  outlet  K 

Height  above  the  bottom  of  the  lower  withdrawal  limit  for  the 
K  +  1  outlet 

Height  above  bottom  of  the  upper  withdrawal  Limit  for  the  K 
outlet 


ZUP(K)  Height  above  bottom  of  the  upper  withdrawal  limit  for  outlet  K 
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X PR  I  NT 


69.  Subroutine  XPRINT  controls  the  output  of  all  tabular  information 
regarding  elevations,  depths,  densities,  normalized  velocities,  flow 
rates,  temperatures,  and  water  quality  parameters.  Each  computational 
layer  has  character ist le  values  for  ill  of  the  above  categor i es ,  md 
subroutine  X  PR  IN'"  prints  these  parameter  values  for  the  ;  tyers  it  us*  :  - 
specified  .  ::t*-rv.us  -...eh  as  at  every  layer  or  every  tn ;  rd  layer .  XfRIN'I 
a i so  summarizes  input  information,  port  center- 1 :ne  elevations,  dimen¬ 
sions,  crest  elevation,  crest  length,  and  flow  rate.  A  flowchart  show¬ 
ing  the  organization  of  XPRINT  is  displayed  in  Figure  «?3.  Table  8  lists 
descriptions  of  the  variables  used  in  XPRINT. 


Figure  23.  Flowchart  for  subroutine  XPRINT 
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Table  8 

X  PR  I  NT  Variables 
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PHGT(  L. 
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The  elevation  of  AWLUPP,  i  .  e .  ,  the  elevation  of  the 

surface  or  the  uppermost  withdrawal  limit,  whichever  is 
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Elevation  of  bottom  of  pool 

Depth  from  surface  to  midpoint  of  layer 
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Table  8  (Continued) 


Var iable 
PVDIM(K) 
QAL0UT(  I  ) 

QCENT 

QMETR 

QPLOT 

QPORT 

QPWEIR 

QSINK1 


QS1NK2 

QTEMP 

QUAL( J,K) 
QWEIR 

SUMOUT 

SURFACE 

TEMOUT 

TEMP(K) 

T ITLE( I ) 

VEL(K) 

WELE 


_  Definition _ 

The  vertical  dimension  of  port  K 

Average  release  concentration  of  the  IL  water  quality 
parameter 

Logical  variable;  true  for  temperatures  in  degrees 

Centigrade;  false  for  temperatures  in  degrees  Fahrenheit 

Logical  variable;  true  when  units  are  metric  (SI);  false 
when  units  are  English  (non-SI) 

Logical  variable;  true  if  line  printer  plot  of  density  and 
total  velocity  profiles  is  desired;  false  if  not  desired 

Logical  variable;  true  if  ports  are  present  as  outlets; 
false  if  no  ports 

Logical  variable;  true  if  a  port  is  considered  "partially 
submerged"  and  therefore  modeled  as  a  weir;  false 
otherwise 

Logical  variable;  true  when  point  sink  description  of  port 
is  adequate  for  calculation  of  lower  withdrawal  limit; 
false  when  otherwise  (see  point  sink  discussion  in 
section  on  subroutine  VPORT) 

Same  as  QSINKt,  except  now  pertaining  to  upper  withdrawal 
limit 

Logical  variable;  true  for  temperature  profile  input; 
false  for  no  input  temperature  profile 

quality  parameter  value  for  layer  J 

Logical  variable;  true  when  a  weir  is  included  as  an 
outlet  device;  false  when  there  is  no  weir 

Total  outflow  through  all  outlets 

Elevation  of  pool  surface 

Average  temperature  of  outflow,  degrees  Fahrenheit  or 
Centigrade 

Temperature  of  layer  K,  degrees  Fahrenheit  or  Centigrade 

Title  of  input  file;  up  to  80  characters  m  length 

Total  release  velocity  profile  value  of  layer  K 

Elevation  of  weir  crest 


( Cont i nued ) 
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Table  8  (Concluded) 


Variable  _ Defin  i  t  ion 


WRFLOW 

Flow  rate  over  weir 

WRHGT 

Weir  crest  height  above  bottom 

WRLNG 

Weir  length 

WTfiDRW(K) 

Withdrawal  flow  rate  for  layer  K 

WTHETA(K) 

Withdrawal  angle  for  port  X 

XFEET 

Equal  to  feet 

XMETERS 

Equal  to  meters 

Y(K) 

Height  of  midpoint  of  layer  K  above  the  bottom 

ZDN(  I  ) 

Height  above  bottom  of  the  lower  withdrawal 
outlet  I 

limit  of 

ZDNEL 

Elevation  of  the  lower  withdrawal  limit  for 
outlet 

the  bottom 

ZUP(  I  ) 

Zl'PEL 

Height  above  bottom  of  the  upper  limit  of  outlet  I 
Elevation  of  upper  withdrawal  limit  for  the  top  outlet 
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DVPLOT 


Instruction  Report  E - 87 - 2 
July  1992 


70.  Subroutine  DVPLOT  generates  a  line  printer  plot  of  elevation  (and 
depth)  versus  density  and  velocity.  This  subroutine  is  called  from  subroutine 
XPRINT.  Figure  24  and  Table  9  show  the  algorithm  flowchart  for  DVPLOT  and  a 
list  of  variable  descriptions,  respectively. 


71 


Instruction  Report  E -87 - 2 
July  1992 


rms  subroutine  plots  profiles  of  density  and 
velocity  versus  depth  and  elevation 

- 1 - 

l 

i 


figure  24.  flowchart  for  subroutine  DVPLOT 


2 


Table  9 

DVPLOT  Variables 


Variable _ Pef  i  n  i  t  ion _ 

BLANK  Assigned  value  of  1H  for  FORMAT  statements 

BOTTOM  Elevation  of  pool  bottom 

CHANGE  Assigned  value  of  POO;  used  to  increment  va  1  ue.s  iisrg 

velocity  axis  of  plot 

CHANGE*?  Assigned  value  of  DENDIF;  used  to  increment  vi..i*'s  i.e 
density  axis  of  plot 

COLUMN ( K )  Assigned  value  of  variable  BLANK  or  7;  K  -  ’"<  •  .  Uh>  ! 

100  COLUMN  values  for  eacn  lire  print’d.  V  is  issit" 
to  columns  where  a  velocity  rr*'i*n:  tr,r  .-->ro  ;  st  s 

f  o  r  plot  marks 

COLUMN*?  ( K)  Same  as  COLUMN!  K),  except  it.  is  3  for  d-era ;  t  i-  ;  e  1 
symbOi  is  D  instead  of  V 

:  Assigned  value  of  1  HI'*  ir.  da!  1  r  •  ;  is-  :  ts  ;  .<  • 

for  density 
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Table  9  (Continued) 


Variable 


Defin i t ion 


ELEV 

FIRST 


I JK 

I  SURF 
KFILE 
LAST 


P  Eli  Ci  ED 

PLUS 

QRANGE 


if:.'  :  > 

VELMA* 
'  '  ! 

M  A  X 

1  SPACE 


Used  to  print  elevations  of  layers;  first  value  is  the 
elevation  of  the  surface  and  following  values  are 
incrementally  reduced  by  DELZ 


Assigned  the  value  of  variable  BLANK  or  PEGGED;  PEGGED  is 
assigned  when  the  density  or  velocity  is  less  than  or 
equal  to  zero.  The  value  of  FIRST  is  printed  in  the  first 
column  of  the  line  being  plotted 


The  column  number  in  which  the  variable  7  or 
placed  for  variable  array  COLUMN  and  COLUMNS, 


D  is 

respect : ve 1 y 


Number  of  layers 
Output  file  code 

Assigned  the  value  of  variable  BLANK  or  PEGGED;  PEGGED  is 
assigned  when  the  velocity  or  density  exceeds  VELMAX  or 
DMAX,  respectively.  LAST  is  printed  in  last  column  of 
plot 


Assigned  value  of  1H* 


Assigned  value  of  2H+ 

Logical  variable;  true  when  velocity  value  for  layer  lies 
between  the  minimum  and  maximum  velocity  valid  on.  the  plot 
scale  or  when  the  layer  density  lies  between  the  minimum 
it:d  maximum  density  value  on  the  plot  scale;  false  when 
the  above  are  not  true 


Assigned  the  value  i fjy ;  used  as  plot  mark  for  velocity 

lot  i.  rele.jso  velocity  profile  va  1  ;*■  of  the  Ith  layer  for 
i ! .  out  1 et s  comb i ned 

Assigned  value  of  ?.n 

Ass.gne-d  the  viitie  of  VE1.(  I  ) 

Maximum  ve loci  tv  in  the  velocity  profile 

Value  is  incremented  by  value  of  CHANGE ,  and  new  va.ue  is 
marked  on  velocity  ixis  producing  the  velocity  sci.e 


71.  Subroutine  ERROR  prints  error  messages  and  terminates  program 
execution  when  one  of  the  internal  program  checks  (see  Appendix  D)  has 
been  failed.  ERROR  receives  through  its  argument  list  an  error  number, 
the  name  of  the  subroutine  in  which  the  error  occurred,  the  value  of  the 
variable  CHECK  (when  applicable),  and  the  values  that  were  expected  for 
CHECK  (when  applicable).  The  subroutine  then  prints  the  error  number, 
the  name  of  the  subrout ine-of-the-occurrence ,  and  a  brief  statement  as 
to  the  nature  of  the  error,  and  terminates  execution  of  the  program.  A 
flowchart  of  the  subroutine  is  given  in  Figure  2 5,  and  a  listing  of 
variables  used  ir,  subroutine  ERROR  is  giver,  ir,  Tabic  '0. 


THIS  SUBROUT  INt  OUTPUTS  l  RHOR  iNfORMATlON  AND 
TfcHMlNATfcS  PROGRAM  tXECUTI ON 
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PRINT  tRROR  NuMBfcR  ANO  SuHHOUTlNfc  Of  OCCURRING! 


Table  10 
ERROR  Variables 


Variable _ Definition _ 

CHK  In  subroutine  argument  list;  carries  the  value  of  the  string 

which  is  in  error.  This  is  used  only  -jhen  a  string  is 
checked  in  the  program  for  correspondence  with  an  expected 
string 

ERR  In  subroutine  argument  list;  carries  the  value  of  the  error 

code  number 

KFILE  Output  file  code 

SU8R  In  subroutine  argument  list;  carries  the  name  of  the 

subroutine  in  which  the  error  occurred 

XCHK1  In  subroutine  argument  list;  carries  the  value  of  the 

string  expected  in  the  corresponding  program  check.  If 
the  program  check  was  not  a  string  comparison,  value  is 
zero 

XCHK2  In  .subroutine  argument  list;  when  program  check  has  more 

than  one  possible  expected  string,  XCHK2  carries  the  value 
of  one  of  the  strings  expected  in  the  program  check.  If 
no  strings  or  one  string  was  expected  in  program  check, 
value  is  assigned  zero 

XCHK3  Same  as  XCHK2,  except  that  it  is  used  when  three  possible 
values  were  expected  in  the  program  check.  If  zero,  one, 
two  possible  strings  were  expected,  value  is  zero 


or 


XREAD 


72.  Subroutine  XREAD  transfers  information  from  the  input  file 
into  working  storage.  The  input  file  contains  program  control 
parameters,  outlet  characteristics,  and  reservoir  profile  data.  As  the 
input  data  are  read,  they  are  checked  to  ensure  that  the  user  has 
observed  proper  order  and  format.  A  general  flowchart  of  the  subroutine 
is  shown  in  Figure  26.  Table  11  lists  descriptions  of  the  variables 
used  in  the  subroutine. 


THIS  SUBROUTINE  READS  ALL  INPUT  DATA  AND 
CONSTRUCTS  TABLES 


T 
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Figure  26.  Flowchart  for  subroutine  XREAD 
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Variable 

BOTTOM 

CHECK 

CHECK  1 
CHECK 2 
COEF 
DELZ 
DEN(M) 
DEPTH 
DUMMY ( I ) 
DUMQUAL(K) 

DUMYQ(K) 

FLODUM(K) 

FLOW(K) 

G 

HDUM 

HEADING(I) 

HGT(I) 

HGTDUM(I) 

IFILE 

INTER 

ISURF 

JFILE 

KFILE 

NAMEQ( J,  I ) 


Table  11 
XREAD  Variables 


_ Definition _ 

Elevation  of  bottom  of  pool 

Assigned  as  first  four  characters  encountered  on  a  line  in 
the  user  input  data  file 

Same  function  as  CHECK 

Same  function  as  CHECK 

Discharge  coefficient  for  free  weir  flow 

Layer  thickness 

Density  of  layer  M,  g/cmJ 

Depth  of  pool 

Line  of  input  from  data  file  for  echo  print  of  input 

Working  storage  assigned  to  qualities  during  interpolation 
of  a  complete  computational  profile,  appropriate  units 

Working  storage  assigned  to  height  of  qualities  above  bot¬ 
tom  during  interpolation  of  a  complete  completion  profile 

Working  storage  assigned  to  port  flow  during  ordering  of 
ports  from  bottom  to  top 

Release  flow  rate  through  the  K  port 

Gravitational  acceleration 

Working  storage  for  port  horizontal  dimension 

Title  of  data  set;  up  to  80  characters  in  length 

Percentage  of  layer  I  that  is  filled  with  water 

Working  storage  assigned  as  port  height  above  bottom;  used 
during  reordering  of  ports  from  bottom  to  top 

File  code  for  input  data  file;  equals  05 

Interval  of  layers  to  be  printed  in  output 

Total  number  of  layers  in  a  profile 

File  code  for  auxiliary  use;  value  should  usually  be 
specified  by  user  as  00 

File  code  for  output  data  file;  equals  06 

Name  of  the  I^*1  water  quality  parameter 


(Continued) 
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Table  11  (Continued) 


Variable 

MFILE 

NP 

NPORTS 

NQUAL 

NSETS 

NUMD 

NUMQ(I) 

NUMT 

PHDIM(K) 

PHGT(K) 

PVDIM(K) 

QAERA 

^  QCENT 
QDEN 
QECHO 
QFIRST 

QMETR 

QPLOT 

QPORT 

QQUAL 


_ Definition _ 

Temporarily  assigned  IFILE  or  JFILE  value;  used  in  echo- 
print  operation 

Number  of  ports  +  1 ;  used  during  ordering  of  ports  from  top 
to  bottom 

Number  of  selective  withdrawal  ports  not  including  a  weir 

Number  of  water  quality  parameters 

Number  of  data  sets  in  the  input  file 

Total  number  of  density  values  in  density  profile 

1_  L. 

Total  number  of  quality  values  in  the  ILn  quality  parameter 
profile 

Total  number  of  temperature  values  in  temperature  profile 

Horizontal  dimension  of  port  K 

Height  above  bottom  of  the  port  center  line 

Vertical  dimension  of  port  K 

Logical  variable;  true,  consider  DO  uptake  due  to  aeration 
through  a  gated  structure  outlet  works;  false,  do  not 
consider  aeration 

Logical  variable;  true,  temperatures  are  in  degrees 
Centigrade;  false,  Fahrenheit 

Logical  variable;  true  when  density  is  input;  if  false, 
program  develops  density  profile 

Logical  variable;  true  for  echo  print  of  input  data  file; 
false  for  no  echo  print 

Logical  variable;  true,  XREAD  has  been  called  once  by  the 
main  program;  false,  XREAD  has  not  been  called  by  the 
main  program 

Logical  variable;  true  when  units  are  metric  (SI); 
otherwise,  false  and  units  are  English  (non-SI) 

Logical  variable;  true  if  line  printer  plot  of  density  and 
total  velocity  profiles  is  desired;  false  if  not  desired 

Logical  variable;  true  when  ports  are  present  as  outlet 
devices;  false  if  there  are  no  ports 

Logical  variable;  true  if  quality  profiles  will  be  entered; 
false  if  quality  profiles  will  not  be  entered 


( Continued ) 
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Table  11  (Continued) 


Var  iable  _ Definition _ 

QSUB  Logical  variable;  true  for  a  submerged  weir;  false  for  a 

free  weir 

QTAB1  Logical  variable;  true  when  profile  data  are  input  as  one 

table;  false  when  two  tables  are  used:  one  for  vertical 
locations  and  one  for  corresponding  profile  parameter 
values  (see  input  description,  Part  V) 

QTEMP  Logical  variable;  true  when  temperature  profile  is  input; 

false  otherwise 

QTWFUN  Logical  variable;  true  when  a  tailwater  elevation  function 

will  be  used;  false  when  not  used 

QUAL(I,M)  Mth  value  for  the  quality  parameter,  appropriate  units 

QWEIR  Logical  variable;  true  when  a  weir  is  included  as  an  outlet 

device;  false  otherwise 

SUBR  Subroutine  name 

SURFACE  Elevation  of  pool  surface 

TABTYP  When  equal  to  1,  profile  data  will  be  input  as  one  table; 

when  equal  to  2,  data  will  be  input  as  two  tables  (see 
input  description,  Part  V) 

TEMP(M)  Temperature  value  of  layer  M,  degrees  Centigrade  or 
Fahrenheit 

TITLE(I)  Identification  title  for  input  file;  up  to  80  characters 
in  length 

TWEL  Value  of  tailwater  elevation 

UNITS  When  equal  to  CENT,  temperature  is  specified  in  degrees 

Centigrade;  when  equal  to  FAHR,  Fahrenheit  degrees 

VDIMDM(I)  Temporarily  assigned  value  of  PVDIM(K);  used  in  port 
reordering  algorithm 

VDUM  Working  storage  for  port  vertical  dimension 

WRFLOW  Outflow  quantity  over  weir 

WRHGT  Weir  crest  height  above  bottom 

WRLNG  Weir  length 

WRTYPE  Equal  to  SUBM  for  a  submerged  weir;  equal  to  FREE  for  a  free 

weir 

WTHETA(K)  Withdrawal  angle  for  port  K 

( Conti nued ) 
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Table  11  (Concluded) 


Var  iable  _ Definition _ 

Y(I)  Height  above  bottom  of  the  midpoint  of  layer  I 

YD(M)  Elevation,  height  above  bottom  or  depth  below  surface  of  the 

Nr  density  profile  value 

YQ(M)  Elevation,  height  above  bottom  cr  depth  below  surface  of  the 

M*"*1  quality  profile  value 

YT(M)  Elevation,  height  above  bottom  or  depth  below  surface  of  the 

Nr  temperature  profile  value 


All  of  the  following  variables  are  used  to  check  for  input  errors  and 
are  assigned  a  character  value  equal  to  the  four  characters  that  follow 
the  X. 


XANGL 

XDENS 

XFILE 

XINTE 

XPORT 

XSURF 

XBOTT 

XDEPT 

XFLOW 

XLENG 

XPRIN 

XTABL 

XCENT 

XELEV 

XFREE 

XMETR 

XQUAL 

XTEMP 

XCOEF 

XENGL 

XHDIM 

XNUMB 

XSTOP 

XTHIC 

XDATA 

XFAHR 

XHEIG 

XPLOT 

XSUBM 

XVDIM 
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Icho  print 


73.  XREAD  has  an  "echo-print"  feature  that  is  optional  to  the 
user  (option  commands  are  discussed  in  Part  IV).  The  echo-print  feature 
prints  the  entire  input  file  to  the  output,  thus  allowing  the  user  to 
see  the  input  and  output  together.  This  feature,  along  with  the  error 
checks  (given  in  Appendix  D),  provide  the  user  with  the  capability  to 
diagnose  error  problems  in  input. 

Computational  layers 

74.  XREAD  develops  the  computational  layers  used  in  program  cal¬ 
culations.  The  number  of  computational  layers  is  determined  by  dividing 
the  impoundment  depth  by  the  user-specified  layer  thickness. 


a.5 


AERATE 


75.  Subroutine  AERATE  accounts  for  the  reaeration  (DO  uptake)  of 
release  water  during  flow  through  a  gated-condu it  outlet  works.  The 
subroutine  determines  the  upstream  oxygen  deficit  based  on  the  flow- 
weighted  average  of  DO  in  the  release  (calculated  in  subroutine 
OUTVEL).  AERATE  computes  the  downstream  deficit  based  on  the  "energy 
dissipation"  model  outlined  by  Wilhelms  and  Smith  (1981)  and 
subsequently  calculates  the  release  DO  concentration.  Figure  27  shows 
the  flowchart  for  subroutine  AERATE.  Table  12  lists  descriptions  of  the 
subroutine  variables. 


Figure  27.  Flowchart  for  subroutine 
AERATE 
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Var iao le 
ALT 

BOTTOM 

C 

CSAT 

C20 

DELH 

DEPTH 
DF 
D I 

QAERA 

QALOUT( 1  ) 

QMETR 

TEMOUT 


Table  12 
AERATE  Variables 


_ Definition _ 

The  elevation  of  the  pool  bottom 

The  elevation  of  the  pool  bottom 

Temperature-adjusted  escape  coefficient  for  oxygen 

Oxygen  saturation  concentration  adjusted  for  altitude 

Equals  0.045  if  English  (non-SI)  units  are  used;  0.1476  if 
metric  (SI)  units  are  used 

Elevation  difference  between  the  pool  surface  and  the 
tailwater  surface 

Depth  of  the  pool 

DO  deficit  exiting  structure 

DO  deficit  entering  structure 

Logical  variable;  true,  consider  DO  uptake  due  to  aeration 
through  a  gated-structure  outlet  works;  false,  do  not 
consider  uptake 

The  outflow  DO  concentration  (weighted  average)  that  is 
adjusted  by  subrouting  AERATE 

Logical  variable;  true  when  metric  (SI)  units  are  used;  false 
when  English  (non-SI)  units  are  used 

Outflow  temperature  (weighted  average) 


TWEL 


Elevation  of  tailwater 


VENTING 


76.  Subroutine  VENTING  accounts  for  the  DO  uptake  by  release 
water  if  venting  techniques  are  applied  to  turbine  releases.  VENTING  is 
based  on  WES  and  Tennessee  Valley  Authority  studies  of  Francis  turbines 
which  have  shown  that  a  maximum  of  30-percent  reduction  of  the  initial 
(penstock)  deficit  is  reasonable  with  turbine  venting.  Therefore, 
VENTING  adjusts  the  flow-weighted  average  of  DO  in  the  release  (as 
calculated  in  subroutine  O'JTVEL),  to  reflect  a  30-percent  reduction  in 
the  deficit.  The  results  predicted  by  VENTING  should  be  considered  as  a 
maximum  DO  uptake  that  can  be  achieved  with  venting.  The  reader  is  re¬ 
ferred  to  Wilhelms  (1984)  and  Wilhelms,  Schneider,  and  Howington  (1987) 
for  additional  details.  Figure  28  is  a  flowchart  of  subroutine  VENTING; 
descriptions  of  the  subroutine  variables  are  given  in  Table  13- 


Figure  28.  Flowchart  for  subroutine 
VENTING 
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Ta  b i e  1  i 

VENTING  Variables 


Variable 

ALT 

BOTTOM 
CSAT 
DF 
D I 

QALOUT(  1  ) 


_ Definition _ _ _ ___ 

Elevation  of  the  pool  bottom 

Elevation  of  the  pool  bottom 

Oxygen  saturation  concentration  adjusted  for  altitude 
DO  deficit  of  release  water  from  structure 
DO  deficit  of  water  entering  structure 

The  flow-weighted  average  of  the  outflow  DO  concentration 
which  is  adjusted  by  subroutine  VENTING 


TEMOUT 


Tne  flow-weighted  average  of  the  outflow  temperature 
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PART  IV:  ASSUMPTIONS  AND  LIMITATIONS 


77.  In  general,  if  the  outlet  and  approach  characteristics  ur-3 
simple,  the  results  produced  by  SELECT  will  be  accurate.  However,  if 
the  characteristics  are  not  of  a  simple  nature,  the  assumptions  inhere:; 
in  the  equations  and  theory  of  SELECT  may  be  violated.  The  user  show  id 
be  aware  of  these  assumptions  and  how  they  limit  the  accuracy  of  re¬ 
sults.  Thus,  a  listing  of  these  assumptions  is  provided  beiow.  V.oiat 
ing  these  assumptions  in  a  misapplication  of  the  SELECT  code  will  ros.jl 
in  erroneous  predictions.  In  some  cases,  more  sophisticated  modeling 
tools,  such  as  multidimensional  mathematical  and  physical  models,  may 
have  to  be  employed  to  gain  adequate  results.  In  other  cases,  manipu¬ 
lation  of  the  SELECT  code  itself  might  be  possible.  These  solutions, 
however,  must  be  considered  on  a  site-specific  basis.  The  user  is 
encouraged  to  consult  WES  if  any  of  the  assumptions  listed  below  are 
violated.  Also  included  in  the  listing  is  a  brief  description  of  the 
limitation  and  effect  of  the  assumption  on  SELECT  predictions. 

Geometry  of  Ports 

78.  Bohan  and  Grace  (1969, 1973)  assumed  that  orifice  geometries 
had  no  effect  on  the  withdrawal  zone.  The  dimensions  of  the  orifice 
were  small  in  comparison  to  the  withdrawal  zone  thickness,  e.g.,  point 
sink  assumption.  If  this  assumption  is  violated,  SELECT  will  warn  the 
user  with  an  output  statement  but  will  continue  to  output  results  as  if 
the  assumption  were  valid. 


Impoundment  Width 

79.  The  width  of  the  impoundment  in  the  region  approaching  the 
outlet  works  is  assumed  to  be  greater  than  the  thickness  of  the  with¬ 
drawal  zone.  Widths  that  are  too  narrow  will  cause  lateral  constric¬ 
tions  in  the  development  of  the  withdrawal  zone  which  will  cause  the 
extent  of  the  withdrawal  zone  to  increase  beyond  thdC  predicted  by 


L  A 
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«'i,  : 


f.EI  fc.i’T.  Thus,  if  SET.  T  :s  run  wr.on  this  assumption  is  not 
c.ilcu.ated  zone  thickness  may  be  ie^s  than  the  actual  itor.e  tnicKU^ss. 


Approach  Path 


60.  The  approach  toward  the  outlet  works  is  assumed  free  of  or- 
structior..  For  example,  a  ridge  at  the  bottom  of  the  impoundment  a 
short  distance  upstream  from  the  outlet  works  could  interfere  with  for¬ 
mation  of  the  withdrawal  none.  In  such  a  case,  the  ridge  may  control 
withdrawal  for  one  discharge  with  the  outlet  controlling  for  other 
d  i  s charges . 

Approach  Curvature 

8'.  Tha  approach  toward  the  outlet  works  is  assumed  relatively 
straight.  When  the  approach  Deing  modeled  is  curved,  the  withdrawal 
2one  prediction  may  not  be  accurate. 

Multiple  Horizontal  Fort s 

82.  Use  of  SELECT  in  the  past  has  shown  that  site-specific  judg¬ 
ments  need  to  be  made  concerning  the  modeling  of  multiple  horizontal 
ports.  The  characteristics  of  withdrawal  due  to  release  through  mul¬ 
tiple  horizontal  ports  remains  largely  undocumented.  To  illustrate,  as¬ 
sume  the  existence  of  two  ports  that  each  withdraw  as  a  point  sink.  It 
can  be  envisioned  that,  if  the  ports  are  far  enough  apart,  the  with¬ 
drawal  zone  of  one  port  will  not  influence  the  withdrawal  zone  of  the 
other.  If  the  same  ports  are  very  near  to  each  other,  a  withdrawal  zone 
could  be  very  closely  approximated  by  the  point  sink  equations  by 
assuming  that  there  is  a  single  port  with  a  flow  rate  equal  to  the  com¬ 
bined  magnitudes  of  the  individual  flow  rates.  The  problems  arise  in 
the  transition  between  ports  that  are  hydrodynamical lv  far  apart  or 
close  together,  because  one  port  will  affect  the  withdrawal  character¬ 
istics  of  the  others  to  some  degree. 
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Weir  Crest  Above  Thermocline 

83.  The  equations  used  in  the  calculation  of  withdrawal  limits  for  flow 
over  a  weir  assume  that  the  weir  crest  is  above  the  thermocline.  If  this 
assumption  is  violated,  the  results  from  the  program  may  be  erroneous. 


Hydraul ic  Inteqri tj 


84.  SELECT  assumes  that  it  is  hydraulically  possible  to  proportion 
flows  between  multiple  ports  as  input  by  the  user.  SELECT  makes  no  check,  for 
example,  to  ensure  that  multiple  ports  in  the  same  wet  well  are  not  used. 
SELECT  users  should  be  aware  of  their  responsibility  to  input  operational 
scenarios  which  are  viable  for  water  quality  control. 


Simultaneous  Port-Weir  Operation 


85.  A  port  and  a  weir  can  be  operated  simultaneously  only  if  each  is 
releasing  flow  under  its  own  control.  For  example,  a  spillway  (weir)  could  be 
operated  simultaneously  with  a  water  quality  intake  (port).  Prediction  of  the 
withdrawal  zone  formed  by  a  cofferdam  (weir)  directly  in  front  of  an  outlet 
works  is  beyond  the  scope  of  SELECT.  Such  an  operation  would  require  more 
sophisticated  modeling. 


89 
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Descriptions 


86.  The  following  descriptions  are  presented  to  define  the  data  that 
are  needed  as  input  for  SELECT.  All  are  listed  in  the  order  as  they  should 
appear  in  an  input  file.  Formal  descriptions  of  the  input  formats  are  given 
in  Appendix  A;  example  input  files  are  given  in  Appendix  B. 

a.  TITLE  -  user-specified  label  to  identify  the  global  input  file. 
The  title  should  not  exceed  80  characters  in  length  (including 
spaces,  numbers,  and  punctuation). 

b.  DATA  SETS  -  each  must  contain  a  heading,  all  port  and  weir 
information,  and  all  necessary  and  desired  parameter  profiles. 
The  ability  to  model  several  data  sets  in  one  execution  saves 
the  user  time.  That  is,  if  the  user  intends  to  ana~\yze  several 
data  sets,  they  can  all  be  run  in  one  program  loading  rather 
than  several . 

c.  PRINT  INPUT  -  tells  the  program  that  the  user  desires  an  echo 
print  (a  copy  of  the  input  file)  along  with  the  output. 

d.  HEADING  -  similar  to  TITLE  except  that  it  labels  a  single  data 
set  in  an  input  file.  Each  data  set  in  an  input  file  must  have 
a  heading.  The  heading  may  be  up  to  80  characters  in  length 
(including  spaces,  numbers,  and  punctuation). 

e.  METRIC  OR  ENGLISH  -  indicates  which  system  of  units  to  be  used. 

English  (non-SI)  Units  Metric  ($11  Units 

feet,  seconds  meters,  seconds 

Note:  Densities  are  assumed  to  be  in  grams  per  cubic  ,.•*••• 
ter.  The  program  default  is  English  (non-$I)  units. 

f.  TABLES  -  the  program  accepts  two  different  formats  *'  •>  •  .■ : 
listings  of  any  type  of  profile  information.  Whi.*.,,.  • 
is  chosen,  that  format  must  be  used  for  all  tab'. 

data  set. 

(1)  Format  1  -  indicated  by  following  the  *  • 
input  line  by  the  number  1.  Ihi.  :*■’ 
the  user  wishes  to  enter  profile  it*  :  ■ 
elevation  and  the  associated  re  *■  - 

(2)  Format  2  -  indicated  bv  f.  '  *  ■ 
input  line  by  any  numb.-*  ■**••  *• 
program  that  t  he  ir  e.  » ■  •  . 

ing  way  the  e lev  at  i  ■  » 

1 i ne  unt  i  1  a  1  l  .  *  >  .  * 
parameter  val.e  * 
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Descriptions 


86.  The  following  descriptions  are  presented  to  define  the  data  that 
are  needed  as  input  for  SELECT.  All  are  listed  in  the  order  as  they  should 
appear  in  an  input  file.  Formal  descriptions  of  the  input  formats  are  given 
in  Appendix  A;  example  input  files  are  given  in  Appendix  B. 

a.  TITLE  -  user-specified  label  to  identify  the  global  input  file. 
The  title  should  not  exceed  80  characters  in  length  (including 
spaces,  numbers,  and  punctuation). 

b.  DATA  SETS  -  each  must  contain  a  heading,  all  port  and  weir 
information,  and  all  necessary  and  desired  parameter  profiles. 
The  ability  to  model  several  data  sets  in  one  execution  saves 
the  user  time.  That  is,  if  the  user  intends  to  analyze  several 
data  sets,  they  can  all  be  run  in  one  program  loading  rather 
than  several . 

c.  PRINT  INPUT  -  tells  the  program  that  the  user  desires  an  echo 
print  (a  copy  of  the  input  file)  along  with  the  output. 

d.  HEADING  -  similar  to  TITLE  except  that  it  labels  a  single  data 
set  in  an  input  file.  Each  data  set  in  an  input  file  must  have 
a  heading.  The  heading  may  be  up  to  80  characters  in  length 
(including  spaces,  numbers,  and  punctuation). 

e.  METRIC  OR  ENGLISH  -  indicates  which  system  of  units  to  be  used. 

English  (non-SIl  Units  Metric  (SIl  Units 

feet,  seconds  meters,  seconds 

Note:  Densities  are  assumed  to  be  in  grams  per  cubic  centime¬ 
ter.  The  program  default  is  English  (non-SI)  units. 

f.  TABLES  -  the  program  accepts  two  different  formats  for  table 
listings  of  any  type  of  profile  information.  Whichever  format 
is  chosen,  that  format  must  be  used  for  all  tables  in  a  single 
data  set. 

(1)  Format  1  -  indicated  by  following  the  word  TABLES  on  the 
input  line  by  the  number  1.  This  tells  the  program  that 
the  user  wishes  to  enter  profile  data  as  one  value  of 
elevation  and  the  associated  parameter  value  per  line. 

(2)  Format  2  -  indicated  by  following  the  word  TABLES  on  the 
input  line  by  any  number  other  than  1.  This  tells  the 
program  that  the  user  wishes  to  enter  data  in  the  follow¬ 
ing  way  the  elevations  will  be  listed  eight  values  per 
line  until  all  elevations  are  entered;  then  the  associated 
parameter  values  will  be  listed  eight  values  per  line 
until  all  parameter  values  are  entered.  The  positions  of 
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the  parameter  values  on  a  line  must  match  the  line  posi¬ 
tions  of  the  associated  elevations. 

g.  THICKNESS  -  indicates  the  user-desired  thickness  of  each  compu¬ 
tational  layer.  It  is  suggested  that  the  thickness  not  exceed 
5  ft  (or  1.5  m)  in  order  to  preserve  definition  of  the  input 
profiles.  The  computational  layer  has  parameter  values 
assigned  to  it,  such  as  velocity,  density,  temperature,  and 
water  quality.  Since  the  parameter  value  is  taken  as  constant 
throughout  the  layer,  any  variation  in  the  actual  parameter 
value  inside  the  layer  is  neglected.  Thus,  in  order  to  prevent 
any  gross  errors  from  occurring  due  to  the  differences  between 
the  actual  and  discretized  profiles,  a  layer  thickness  of  no 
more  than  5  ft  should  be  used.  The  layer  thickness  limit  may 
vary  from  project  to  project. 

h.  INTERVAL  -  determines  how  often  computational  layer  parameter 
values  are  to  be  output— every  layer,  every  other  layer,  etc. 

An  interval  of  "1"  will  output  values  for  every  layer.  An 
interval  of  "2"  will  output  values  for  every  second  layer,  and 
so  on.  An  interval  of  "0"  will  not  be  accepted  by  the  program. 

l.  SURFACE  -  the  value  of  the  surface  elevation.  This  must  be 
input  as  an  elevation  above  the  user-defined  datum. 

j.  BOTTOM  -  the  value  of  the  bottom  elevation.  This  must  be  input 
as  an  elevation  above  the  user-defined  datum. 

k.  PORTS  -  identifies  the  number  of  operating  ports  to  be  modeled 
by  the  program  in  a  single  data  set.  The  number  of  operating 
ports  is  limited  to  five  by  the  program  dimensions.  Multiple 
ports  operating  at  the  same  elevation  and  within  close  lateral 
proximity  should  be  combined  into  a  single  port  for  input. 
Otherwise,  the  extreme  withdrawal  zone  interaction  will  likely 
result  in  underprediction  of  the  withdrawal  zone  thickness  by 
the  program. 

1-  VDIM  -  the  value  of  the  vertical  dimension  of  the  port.  If 
more  than  one  port  is  being  modeled,  the  vertical  dimensions 
for  all  of  the  ports  must  be  listed  on  one  line.  They  may  be 
listed  from  the  bottom  port  to  the  top  port,  or  vice  versa. 

m.  HDIM  -  the  value  of  the  horizontal  dimension  of  the  port.  If 
more  than  one  port  is  modeled,  the  horizontal  dimensions  of  all 
the  ports  must  be  listed  on  one  line.  They  may  be  listed  from 
the  bottom  port  to  the  top  port,  or  vice  versa;  however,  the 
ordering  must  match  the  ordering  of  VDIM. 

n.  PORT  ELEVATION  -  the  vertical  port  positions  in  the  impoundment 
may  be  given  as  elevation  above  a  user-defined  datum,  as  depth 
below  the  surface,  or  as  height  above  the  bottom.  Elevation 
(or  depth  or  height)  values  for  multiple  ports  must  be  listed 
on  one  line.  The  ordering  may  be  from  the  bottom  port  to  the 
top  port,  or  vice  versa.  Again,  however,  the  ordering  must 
match  the  ordering  used  for  VDIM. 
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fi.  FLOW  -  the  value  of  the  flow  rate  through  a  port  or  over  a 
weir.  If  multiple  ports  are  modeled,  the  flow  rates  for  all 
the  ports  must  be  listed  on  one  line.  The  ordering  of  the 
values  may  be  from  the  top  port  to  the  bottom  port,  or  vice 
versa.  This  ordering  must  also  match  the  ordering  of  VDIM. 

fi.  WITHDRAWAL  ANGLE  -  the  effective  angle  of  withdrawal  in  the 
horizontal  plane  of  the  port.  The  withdrawal  angles  for  all 
ports  must  be  entered  on  one  line  and  may  be  ordered  from  bot¬ 
tom  port  to  top  port,  or  vice  versa.  The  ordering  must  match 
that  of  VDIM. 

g.  WEIR  -  indicates  that  a  weir  is  to  be  modeled  by  the  program. 

r.  WEIR  TYPE  -  indicates  whether  the  weir  is  a  free  weir  (dis¬ 
charge  unaffected  by  downstream  pool)  or  a  submerged  weir  (dis¬ 
charge  affected  by  downstream  pool). 

i-  COEFFICIENT  -  the  weir  coefficient  to  be  used  if  the  weir  is 
not  considered  submerged. 

t.  WEIR  LENGTH  -  the  length  of  the  crest  of  the  weir. 

g.  WEIR  CREST  ELEVATION  -  the  elevation  above  the  user-defined 
datum,  depth  below  the  surface,  or  height  above  the  bottom  of 
the  weir  crest. 

v.  TURBINE  VENTING  -  indicates  that  the  improvement  in  DO  content 
due  to  turbine  aeration  should  be  taken  into  account.  The 
improvement  is  based  on  a  30  percent  decrease  in  the  penstock 
DO  deficit.  A  DO  water  quality  profile  must  be  part  of  the 
input  file  if  this  command  is  used. 

w.  GATED  STRUCTURE  -  indicates  that  the  change  in  DO  content  due 
to  aeration  through  gated-conduit  structures  should  be  taken 
into  account.  The  amount  of  change  is  approximated  based  on 
results  of  Wilhelms  and  Smith  (1981).  A  DO  water  quality  pro¬ 
file  must  be  part  of  the  input  file  if  this  command  is  used. 

x.  TAILWATER  ELEVATION  -  indicates  that  the  tailwater  elevation  is 
entered.  The  tailwater  elevation  must  be  used  only  if  the 
GATED  STRUCTURE  command  is  used. 

y.  TAILWATER  FUNCTION  -  often  the  tailwater  cannot  be  given 
directly  but  is  a  function  of  the  discharge.  In  that  case,  a 
function  subprogram  must  be  written  and  appended  to  the  SELECT 
code.  This  command  may  be  used  only  if  the  GATED  STRUCTURE 
command  is  used.  For  assistance  with  this  input,  the  user 
should  contact  personnel  of  the  Reservoir  Water  Quality  Branch 
of  the  WES  Hydraulics  Laboratory. 


Profile  Formats 


87.  Input  profile  formats  for  a  single  data  set  must  match  the  format 
specified  on  the  "TABLES"  card. 
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a.  DENSITY  -  density  profile  is  necessary  for  the  operation  of 
SELECT.  If  a  density  profile  is  not  available,  a  temperature 
profile  must  be  input  from  which  the  program  can  generate 
densities. 

b.  OTHER  PARAMETERS  -  water  quality  parameter  profiles  are  neces¬ 
sary  if  release  water  quality  predictions  are  desired.  If  the 
GATED  STRUCTURE  or  TURBINE  VENTING  input  commands  are  used,  a 
DO  profile  must  be  the  first  water  quality  profile  listed  after 
the  density  and/or  temperature  profiles.  If  a  density  profile 
is  input  to  define  reservoir  stratification  (to  account  for 
suspended  or  dissolved  solids)  and  release  temperature  is  of 
interest,  the  temperature  profile  may  be  input  as  a  water  qual¬ 
ity  parameter.  Up  to  four  other  water  quality  parameter 
profiles  may  be  entered. 
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APPENDIX  A:  INPUT  FORMAT  DESCRIPTION 


1.  CARD  refers  to  card  image  input  if  disc  files  or  magnetic  tapes  are 
used  as  input  devices . 

2.  The  format  code  following  the  CARD  number  Is  the  format  by  which  the 
input  line  of  data  will  be  read.  The  input  must  match  the  fields  of  the 
appropriate  format. 

3.  Following  the  CARD— FORMAT  line  is  the  list  of  variables  used  to 
store  the  input  data.  They  are  listed  in  the  order  by  which  they  are  entered. 
Following  each  variable  name  is  the  expected  input  for  the  first  word(s)  of 
the  input  line.  When  several  expected  input  phrases  are  listed,  only  one  is 
chosen. 

4.  Each  time  more  than  one  card  is  required  to  input  profile  values, 
the  remaining  input  cards  will  need  to  be  renumbered  to  reflect  the  extra 
cards  used.  For  example,  when  profile  data  are  to  be  entered  as  one  elevation 
value  and  one  parameter  value  per  line,  such  as  CARD  #24  when  TABTYP  -  1  , 
more  than  one  profile  data  card  will  be  required  to  define  the  profile.  If, 
as  a  simple  case,  it  is  assumed  four  profile  data  input  cards  will  be  neces¬ 
sary,  they  would  be  numbered  CARD  #24,  CARD  #25,  CARD  #26,  and  CARD  #27.  The 
remaining  input  cards  should  be  resequenced  beginning  with  CARD  #28. 

5.  Be  sure  that  all  input  data  units  are  consistent  with  the  system  of 
units  specified  on  CARD  #05.  The  exception  to  this  is  the  units  for  density, 
which  should  always  be  entered  as  grams  per  cubic  centimeter. 

6.  There  must  be  a  STOP  statement  at  the  end  of  each  data  set. 
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SELECT  Program-Input  Format  Description 
CARD  #01  FORMAT  (20A4) 

1.  TITLE  -  An  arbitrary  title  not  to  exceed  80  characters  in  length 

CARD  #02  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  "DATA" 

2.  NSETS  -  Number  of  data  sets  in  input  file 
CARD  #03  FORMAT  (20A4) 

1.  CHECK  -  A)  "PRINT  INPUT"  -  Echo  print  input 
B)  "(ANYTHING  ELSE)"  -  No  echo  print 

CARD  #04  FORMAT  (20A4) 

1.  HEADING  -  An  arbitrary  descriptive  heading  for  the  simulation, 
not  to  exceed  80  characters  in  length 

CARD  #05  FORMAT  (20A4) 

1.  CHECK  -  A)  "METRIC"  -  Input  and  output  are  in  Metric  (SI)  units 
B)  "ENGLISH"  -  Input  and  output  are  in  English  (non-SI) 
units 

CARD  #06  FORMAT  (A4 ,  6X,  1415) 

1.  CHECK  -  "TABLES" 

2.  TABTYP  -  A)  "1"  -  Program  reads  profile  input  data  in  a  table  of 

one  value  of  elevation,  depth  below  the  surface,  or 
height  above  the  bottom,  and  a  corresponding  value 
of  density,  temperature,  or  quality  per  line. 

B)  "(ANY  OTHER  NUMBER)"  -  Program  reads  profile  data  as 
a  table  of  all  the  values  (eight  per  line)  of  eleva¬ 
tion,  depth  below  the  surface,  or  height  above  the 
bottom  followed  by  a  table  of  all  the  values  of  the 
corresponding  density,  temperature,  or  quality. 

CARD  #07  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "THICKNESS" 

2.  DELZ  -  Thickness  of  each  computational  layer  (feet  or  meters) 

CARD  #08  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  "INTERVAL" 

2.  INTER  -  The  interval  used  to  select  layer  information  for 

printout 

CARD  #09  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "SURFACE" 

2.  SURFACE  -  Elevation  of  the  water  surface  (feet  or  meters) 

CARD  #10  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "BOTTOM" 

2.  BOTTOM  -  Elevation  of  the  lake  bottom  (feet  or  meters) 
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CARD  #11  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  A)  "PORT" 

B)  "WEIR" 

2.  NPORTS  -  Number  of  ports  (not  applicable  if  weir  only) 

If  "WEIR"  was  specified  on  Card  #11,  go  to  Card  #18;  otherwise  continue. 

CARD  #12  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "VDIM" 

2.  (PVDIM(K) ,  K-l,  NPORTS)  -  Vertical  dimensions  of  the  ports 
(feet  or  meters) 

CARD  #13  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "HDIM" 

2.  (PHDIM(K) ,  K-l,  NPORTS)  -  Horizontal  dimensions  of  the  ports 
(feet  or  meters) 

CARD  #14  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  A)  "ELEVATION" 

B)  "DEPTH" 

C)  "HEIGHT" 

2.  (PHGT(K),  K-l,  NPORTS)  -  Center-line  elevation,  depth  or  height 
of  the  ports  (feet  or  meters) 

CARD  #15  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "FLOW" 

2.  (FLOW(K) ,  K-l,  NPORTS)  -  Flow  through  each  of  the  ports 
(cubic  feet  per  second  or  cubic  meters  per  second) 

CARD  #16  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "ANGLE" 

2.  (WTHETA(K) ,  K-l,  NPORTS)  -  The  withdrawal  angle  for  each  port 
(radians) 

If  "PORTS"  was  specified  on  Card  #11  and  a  weir  is  to  be  modeled  also,  used 
CARDS  #17,  #18,  and  #19;  otherwise  omit  them. 

CARD  #17  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  "WEIR" 

CARD  #18  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  A)  "FREE" 

B)  "SUBMERGED" 

If  "SUBMERGED"  was  specified  on  Card  #18,  omit  Card  #19;  otherwise 
continue . 

CARD  #19  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "COEF" 

2.  COEF  -  Coefficient  of  discharge  for  free  weir  flow.  These 
coefficients  should  be  3.0,  3.33,  or  4.10. 
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CARD  #20  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "LENGTH" 

2.  WRING  -  Length  of  the  weir  crest  (feet  or  meters) 

CARD  #21  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  A)  "ELEVATION" 

B)  "DEPTH" 

C)  "HEIGHT" 

2.  WRHGT  -  Elevation,  depth,  or  height  of  the  weir  crest 

(feet  per  second  or  meters  per  second) 

CARD  #22  FORMAT  (A4,  6X  (7F10.0)) 

1.  CHECK  -  "FLOW" 

2.  WRFLOW  -  Flow  over  the  weir  (cubic  feet  per  second  or 
cubic  meters  per  second) 

Optional  CARD  FORMAT  (20A4) 

1.  CHECK  -  A)  "TURBINE  VENTING"  -  If  turbine  venting  is  to  be 

modeled 

B)  "GATED  STRUCTURE"  -  If  aeration  due  to  gated  conduit 

is  to  be  modeled 

If  "GATED  STRUCTURE"  is  entered,  so  must  the  following  optional  card. 

Optional  CARD  FORMAT  (A4,  6X,  A4  6X,  (6F10.0)) 

1.  CHECK1  -  "TAILWATER" 

2.  CHECK2  -  A)  "ELEVATION"  -  If  tailwater  elevation 

B)  "FUNCTION"  -  If  tailwater  function 

3.  TWEL  -  Value  of  the  tailwater  elevation 

CARD  #23  FORMAT  (A4,  6X,  A4,  6X.  1215) 

1.  CHECK1  -  "NUMBER  OF" 

2.  CHECK2  -  A)  "DENSITIES" 

B)  "TEMPS" 

3.  NUMD  -  A)  Number  of  density  values  in  profile,  or 

B)  Number  of  temperature  values  in  profile 

If  "TEMPS"  was  specified  on  Card  #23,  go  to  Card  #29;  otherwise 
continue . 

If  TABTYP  EQ.  1  (Card  #06) 

CARD  #24  FORMAT  (A4,  6X,  A4) 


1. 

CHECK1 

-  A) 

"ELEVATION 

B) 

"DEPTH" 

C) 

"HEIGHT" 

2. 

CHECK2 

-  "DENSITIES 

CARD  #25  FORMAT  (2F10.0) 

1.  (YD(M) ,  DEN(M) ,  M-l,  NUMD)  -  Values  of  elevation,  depth,  or 

height  (feet  or  meters)  and  the  corresponding  values  of  density 
(grams  per  cubic  centimeter) 
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CARD  #26  and  #27  not  used 

An  adequate  number  of  cards  containing  the  profile  elevation  and  density 
values  using  the  above  format  are  required  at  this  point.  The  remaining 
input  cards  should  be  renumbered  to  continue  in  sequence. 

If  TABTYP.  NE.  1  (Card  #06) 

CARD  #24  FORMAT  (20A4) 

CHECK  -  A)  "ELEVATION" 

B)  "DEPTH" 

C)  "HEIGHT" 

CARD  #25  FORMAT  (8F10.0) 

1.  (YD(M) ,  M-l,  NUMD)  -  Values  of  elevation,  depth,  or  height 

corresponding  with  density  values  to  be  input  (feet  or  meters) 

An  adequate  number  of  cards  containing  profile  elevation  values  using 
the  above  format  are  required  at  this  point.  The  remaining  input  cards 
should  be  renumbered  to  continue  in  sequence. 

CARD  #26  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  "DENSITY" 

CARD  #27  FORMAT  (8F10.0) 

1.  (DEN(M),  M-l,  NUMD)  -  Values  of  density  corresponding  to  the 
data  on  Card  #25  (grams  per  cubic  centimeters) 

An  adequate  number  of  cards  containing  profile  density  values  using  the 
above  format  are  required  at  this  point.  The  remaining  input  cards 
should  be  renumbered  to  continue  in  this  sequence. 

CARD  #28  FORMAT  (A4,  16X,  1215) 

1.  CHECK  -  A)  "NUMBER  OF  TEMPS" 

B)  "QUALITIES" 

C)  "STOP"  -  Read  sequence  stops 

2.  NUMT  -  Number  of  temperature  if  "NUMBER  OF  TEMPS"  is  entered 

If  "STOP"  was  specified  on  Card  #28,  go  to  last  line  of  this  description 
(page  A8) . 

If  "QUALITIES"  was  specified  on  Card  #28,  go  to  Card  #35. 

If  "NUMBER  OF  TEMPS"  was  specified  on  Card  #28,  continue. 

CARD  #29  FORMAT  (A4,  16X,  A4) 

1.  CHECK  -  A)  "TEMPERATURE  DEGREES" 

2.  UNITS  -  A)  "FAHRENHEIT" 

B)  "CENTIGRADE" 

If  TABTYP  EQ.  1  (Card  #06) 
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CARD  #30  FORMAT  (A4,  6X,  A4) 


1. 

CHECK1 

-  A) 

"ELEVATION 

B) 

"DEPTH" 

C) 

"HEIGHT" 

2. 

CHECK2 

-  "TEMPERATURE" 

CARD  #31  FORMAT  (2F10.0) 

1.  (YT(M),  TEMP(M) ,  M-l,  NUMT)  -  Values  of  elevation,  depth,  or 

height  (feet  or  meters)  and  the  corresponding  values  of 
temperature  (units  specified  on  Card  #29) 

CARD  #32  and  #33  not  used 

An  adequate  number  of  cards  containing  the  profile  elevation  and 
temperature  values  using  the  above  format  are  required  at  this  point. 
The  remaining  input  cards  should  be  renumbered  to  continue  in  this 
sequence . 

If  TABTYP  NE.  1  (Card  #06) 

CARD  #30  FORMAT  (20A4) 

1.  CHECK  -  A)  "ELEVATION" 

B)  "DEPTH" 

C)  "HEIGHT" 

CARD  #31  FORMAT  (8F10.0) 

1.  (TY(M) ,  M-l,  NUMT)  -  Values  of  elevation,  depth,  or  height 
corresponding  with  temperature  values  to  be  input  (feet  or 
meters) 

An  adequate  number  of  cards  containing  profile  elevations  using  the 
above  format  are  required  at  this  point.  The  remaining  input  cards 
should  be  renumbered  to  continue  in  sequence. 

CARD  #32  FORMAT  (20A4) 

1.  CHECK  -  "TEMPERATURE" 

CARD  #33  FORMAT  (8F10.0) 

1.  (TEMP(M) ,  M-l,  NUMT)  -  Values  of  temperature  corresponding  to 
the  data  on  Card  #31  (units  specified  on  Card  #30) 

An  adequate  number  of  cards  containing  profile  temperatures  using  the 
above  format  are  required  at  this  point.  The  remaining  input  cards 
should  be  renumbered  to  continue  in  sequence. 

CARD  #34  FORMAT  (A4,  6X,  1415) 

1.  CHECK  -  A)  "QUALITIES" 

B)  "STOP"  -  Read  sequence  stops 

2.  NQUAL  -  Number  of  quality  parameters 

If  STOP  was  specified  on  CARD  #34,  go  to  last  line  of  this  description 
(page  A8).  If  QUALITIES  was  specified  on  CARD  #34,  continue. 
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FORMAT  (A4,  6X,  5A4,  15) 

1.  CHECK  -  "NUMBER  OF" 

2.  (NAME(NM,  I)  NM-1,5)  -  Name  of  the  Ith  quality  parameter  (not  to 
exceed  20  characters) 

3.  NUMQ(I)  -  Number  of  quality (I)  values 

If  TABTYP  EQ.  1  (Card  #06) 

CARD  #36  FORMAT  (A4,  6X,  A4) 

1.  CHECK  -  A)  "ELEVATION" 

B)  "DEPTH" 

C)  "HEIGHT" 

CARD  #37  FORMAT  (2F10.0) 

1.  (YQ(I,M),  QUAL(I,M),  M-l ,  NUMQ(I))  -  Values  of  elevation,  depth, 

or  height  (feet  or  meters)  and  the  corresponding  values  of  the 
Ith  quality  parameter  (appropriate  units) 

CARDS  #38  and  #39  not  used 

An  adequate  number  of  cards  containing  the  profile  elevation  and  quality 
values  using  the  above  format  are  required  at  this  point.  The  remaining 
input  cards  should  be  renumbered  to  continue  in  sequence. 

If  TABTYP  NE.  1  (Card  #06) 

CARD  #36  FORMAT  .(20A4) 

1.  CHECK  -  A)  "ELEVATION 

B)  "DEPTH" 

C)  "HEIGHT" 

CARD  #37  FORMAT  (8F10.0) 

1.  (YQ(I,M)  M-l,  NUMQ(I))  -  Values  of  elevation,  depth,  or  height 
corresponding  with  the  Ith  quality  parameter  values  to  be  input 
(feet  or  meters) 

An  adequate  number  of  cards  containing  the  profile  elevations  using  the 
above  format  are  required  at  this  point.  The  remaining  input  cards 
should  be  renumbered  to  continue  in  sequence. 

CARD  #38  FORMAT  (20A4) 

1.  CHECK  -  Name  of  the  Ith  quality  parameter 

CARD  #39  FORMAT  (8F10.0) 

1.  (QUAL(I,M),  M-l,  NUMQ(I))  -  Values  of  the  Ith  quality  parameter 
corresponding  to  the  data  on  Card  #37  (appropriate  units) 

An  adequate  number  of  cards  containing  the  profile  qualities  using  the 
above  format  are  required  at  this  point.  The  remaining  input  card 
should  be  renumbered  to  continue  in  sequence. 

If  there  are  more  water  quality  profiles,  repeat  CARDS  #36-39  for  each 
additional  water  quality  parameter. 
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CARD  #40  FORMAT  (20A4) 

1.  CHECK  —  "STOP"  —  Stops  read  sequence 

If  there  are  more  data  sets,  repeat  CARDS  #04-40  for  each  additional 
data  set. 
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APPENDIX  B:  INPUT  EXAMPLES 


1.  The  following  are  examples  of  simple  input  files.  They  are 
presented  to  help  clarify  the  structure  of  an  input  file. 

2.  The  impoundment  being  modeled  has  a  pool  that  is  100  ft  deep,  with 
the  elevation  of  the  bottom  taken  as  zero  or  datum. 


Example  File  1 


3.  Example  File  1  models  a  single  5-  by  5-ft  port  whose  center  line  is 
located  20  ft  below  the  pool  surface.  The  port  has  a  withdrawal  angle  of 
180  deg  (3.14  rad)  and  releases  a  flow  rate  of  100  cfs. 

4.  The  density  profile  needed  to  run  SELECT  will  be  generated  by  the 
program  using  the  given  temperature  profile.  The  only  water  quality  parameter 
modeled  is  temperature. 


5.  For  the  computations,  the  pool  will  be  divided  into  layers  3  ft 
thick  each.  The  printout  interval  for  layer  information  will  be  at  every 
layer  (INTERVAL  -01). 


ANONYMOUS  LAKE  EXAMPLE 


DATA  SETS  01 

PRINT  INPUT 

EXAMPLE  FOR  INPUT/OUTPUT  USING  PORT 
ENGLISH 

TABLE  01 

THICKNESS  3 . 0 

INTERVAL  01 

SURFACE  100 . 0 

BOTTOM  0 . 0 

PORT  1 

VDIM  5.0 

HDIM  5 . 0 

DEPTH  20 . 0 

FLOW  100.0 

ANGLE  3 . 14 

NUMBER  OF  TEMP  12 

TEMPERATURE  DEGREES  CENTIGRADE 

HEIGHT  TEMP 

97.6  28.9 

90.0  28.2 

80.0  27.0 

69.8  26.0 

65.0  24.9 

60.0  23.0 

57.6  20.0 

53.9  18.5 

50.0  17.5 

40.0  16.7 

31.2  15.9 

20.0  15.0 

STOP 
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Example  File  2 


6.  Example  File  2  models  the  same  thing  as  Example  File  1  with  a  few 
variations.  One  variation  is  that  another  port  vertically  separated  from  the 
first  port  is  to  be  modeled.  The  two  ports  are  considered  to  be  operating 
simultaneously  and  independently.  The  second  port  is  located  50  ft  below  the 
pool  surface  and  has  the  same  dimensions  and  withdrawal  characteristics  as  the 
first  port. 

7.  The  presence  of  the  dissolved  oxygen  (DO)  profile  following  the 
temperature  profile  indicates  that  the  user  wishes  to  know  the  release  DO 
concentration  as  well  as  temperature.  The  calculation  of  release  DO  will 


include  DO  uptake  due  to  gated-conduit  reaeration  because  the  GATED  STRUCTURE 


command  is  present  following  the  port  information  in  the  input  file. 


ANONYMOUS  LAKE  EXAMPLE 

50.3 

0.3 

DATA  SETS  01 

AO. 6 

0.2 

PRINT  INPUT 

30.0 

0.2 

EXAMPLE  FOR  INPUT/OUTPUT  USING  PORT 

21.7 

0.1 

ENGLISH 

15. A 

0.0 

TABLE 

01 

THICKNESS 

3.0 

INTERVAL 

01 

SURFACE 

100.0 

BOTTOM 

0.0 

PORT 

2 

VDIM 

5.0 

5.0 

HDIM 

5.0 

5.0 

DEPTH 

50.0 

20.0 

FLOW 

100.0 

100.0 

ANGLE 

3.1A 

3.1A 

GATED  STRUCTURE 

TAILHATER 

ELEVATION 

15.9 

NUMBER  OF 

TEMP 

12 

TEMPERATURE  DEGREES  CENTIGRADE 
HEIGHT  TEMP 


97.6 

28.9 

90.0 

28.2 

80.0 

27.0 

69.8 

26.0 

65.0 

2A.9 

60.0 

23.0 

57.6 

20.0 

53.9 

18.5 

50.0 

17.5 

A0. 8 

16.7 

31.2 

15.9 

20.0 

15.0 

QUALITIES 

1 

NUMBER  OF  DISSOLVED  OXYGEN 
HEIGHT  DISSOLVED  OXYGEN 

95.6 

3.2 

90.2 

3.2 

8A.9 

3.1 

78.7 

3.0 

73. A 

2.1 

69.5 

1.8 

61.0 

1.3 

58. A 

0.5 

B2 
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Example  File  3 


8.  Example  File  3  models  a  weir.  The  weir  is  the  submerged  type  with 
its  crest  65  ft  off  the  bottom.  It  is  100  ft  in  length  and  has  a  total  flow 
rate  of  200  cfs  over  its  crest. 

9.  The  input  file  dictates  that  the  pool  should  be  divided  into  layers 
that  are  3  ft  thick  and  that  the  output  data  be  given  at  every  layer  (INTERVAL 
-  01).  As  in  Example  File  2,  the  temperature  *nd  DO  concentration  of  the 
release  are  desired.  There  is  no  option  for  DO  calculations  based  on  reaera¬ 
tion  through  the  outlet  works  for  weir  flow. 


ANONYMOUS  LAKE  EXAMPLE 

DATA  SETS 
PRINT  INPUT 

01 

EXAMPLE  FOR 
ENGLISH 

INPUT/OUTPUT  USING 

TABLE 

01 

THICKNESS 

3  0 

INTERVAL 

01 

SURFACE 

100  0 

BOTTOM 

HEIR 

SUBKRGED 

0  0 

LENGTH 

100 

HEIGHT 

65  0 

FLOW 

200  0 

RIMER  OF  TEMP  12 

TEMPERATURE 

DEGREES  CENTIGRADE 

HEIGHT  TEW 

97.6 

28  9 

00  0 

28  2 

80  0 

27  0 

69  8 

26  0 

65  0 

21  9 

60  0 

23  0 

57  6 

20  0 

53  9 

18  5 

o 

o 

in 

17  5 

♦  0  0 

16  7 

312 

15  9 

20  0 

15  0 

QUALITIES 

1 

NUMBER  OP  DISSOLVED  OXYGEN  13 

HEIGHT  DISSOLVED  OXYGEN 


95  6 

3 

2 

90  2 

3 

2 

84  9 

3 

1 

78  7 

3 

0 

73  ♦ 

2 

1 

69  5 

1 

8 

61  0 

1 

3 

58  ♦ 

0 

5 

50  3 

0 

3 

♦  0  6 

0 

2 

30  0 

0 

2 

21  7 

0 

l 

15  ♦ 

0 

0 

STOP 
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Example  File  9 


10.  Example  File  4  is  an  input  file  made  up  of  Example  Files  1  and  3 
In  other  words,  it  is  one  input  file  containing  two  data  sets  It  is  impor¬ 
tant  to  realize  that  this  data  file  format  will  not  cause  the  program  to  model 
the  port  and  the  weir  simultaneously,  rather,  it  will  model  the  port  only  and 
produce  output  Then  it  will  model  the  weir  only  and  produce  output 

11  This  technique  of  appending  data  sets  saves  time  in  loading  and 
reloading  the  program  for  consecutive  runs. 


ANONYMOUS  LAKE  EXAMPLE 

60  0 

23  0 

DATA  SETS 

02 

5  7  6 

20  0 

PRINT  INPUT 

^3  9 

18  ^ 

EXAMPLE  FOR 

INPUT/OUTPUT  USING  PORT 

•>o  0 

17  S 

ENGLISH 

40  0 

16  7 

TABLE 

01 

31  ? 

1*)  9 

THICKNESS 

3 

0 

20  0 

1*  o 

INTERVAL 

01 

QUAL I T I ES 

1 

SURFACE 

100 

0 

NUMBER  of  DISSOLVED  OXYGEN 

BOTTOM 

0 

0 

HEIGHT  DISSOLVED  OXYGEN 

PORT 

1 

9*!  6 

3  2 

VDIM 

0 

90  2 

J  2 

HD  IM 

0 

84  9 

3  1 

DEPTH 

20 

0 

78  ’ 

3  C 

FLOW 

100 

0 

T  3  4 

2  1 

ANGLE 

3 

14 

69  «! 

1  8 

NUMBER  OF  TEMP 

12 

61  0 

1  3 

TEMPERATURE 

DEGREES  CENTIGRADE 

*>8  4 

J  s 

HEIGHT  TEMP 

*>0  3 

J  s 

97  6 

28 

9 

4  C  6 

j  2 

90  0 

28 

2 

30  0 

.  2 

80  0 

27 

0 

2  1  1 

1 

69  8 

26 

0 

n  ^ 

; 

6*>  0 

24 

9 

STOP 

60  0 

23 

0 

V  6 

20 

0 

*>3  9 

18 

«v 

}0  0 

i ; 

*1 

40  0 

16 

n  2 

n 

9 

20  0 

n 

0 

STOP 


EXAMPLE  FOR  INPUT  OUTPUT  USING  HEIR 


ENGLISH 

TABLE  01 

THICKNESS  )  0 

INTERVAL  01 

simp  ace  ioo  o 

BOTTOM  0  ' 

WEIR 

SUBMERGED 

LENGTH  1 0(, 

HEIGHT  6*i 

FLOW  ion  ■ 

NUMBER  OF  TEMP  li 


TEMPERATURE  DEGREES  CENTIGRADE 


HEIGHT  TEMP 


97 

6 

28 

90 

0 

28 

80 

0 

2  ’ 

69 

8 

26 

6*> 

0 

24 

1  J 
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APPENDIX  C:  OUTPUT  EXAMPLE 


1.  This  appendix  presents  SELECT  output  for  the  fourth  example  input 
file  in  Appendix  B.  This  output  is  divided  as  follows: 

fl.  Listing  of  the  input  file.  In  this  example,  the  PRINT  INPUT 
command  was  included  in  the  input  file.  If  the  command  is 
omitted  from  the  input  file,  no  listing  of  the  input  file  is 
given . 

fe.  Summary  of  the  output  results.  The  summary  includes  the  title 
of  the  input  file,  the  title  of  the  data  set  to  which  the  re¬ 
sults  pertain,  the  units  used  for  computations,  each  outlet's 
dimensions  and  flow  rate,  the  total  flow  rate  from  all  outlets, 
the  locations  of  the  upper  and  lower  withdrawal  limits,  and  the 
total  outflow  concentration  of  all  water  quality  parameters 
modeled . 

£  Tabular  listing  of  flow  rates,  velocities,  and  water  quality 

parameter  concentrations,  given  at  layer  center-line  elevations. 
The  interval  between  the  layers  at  which  information  is  given 
depends  on  the  INTERVAL  command  listed  in  the  input  file.  An 
interval  of  "1"  will  list  layer  information  at  every  layer,  an 
interval  of  "2"  will  list  layer  information  at  every  other 
layer,  and  so  on. 

d  Line-printer  plot  of  the  velocity  and  density  profile.  The  data 
points  on  the  plot  coincide  with  the  data  in  each  of  the  layers 
All  layers  are  included  in  this  plot. 

2.  If  the  user  chooses  to  use  multiple  data  sets  in  one  input  file,  as 
in  this  example,  i  \e  results  from  each  data  set  will  be  listed  individually 
and  output  one  after  the  other  in  the  results. 


Cl 


1000  ***AN0NYM0US  LAKE  EXAMPLE 

1010  ***DATA  SETS  02 

1020  ***PRINT  INPUT 

1030  ***EXAMPL£  FOR  INPUT/OUTPUT  USING  PORT 

1040  ***ENCLISH 
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LOWER  WITHDRAWAL  LIMIT  (  THEORETICAL  )  HEIGHT  ABOVE  BOTTOM  65.781  ELEVATION  65.781 

UPPER  WITHDRAWAL  LIMIT  (  ACTUAL  )  HEIGHT  ABOVE  BOTTOM  94.531  ELEVATION  94.531 

UPPER  WITHDRAWAL  LIMIT  (  THEORETICAL  )  HEIGHT  ABOVE  BOTTOM  94.531  ELEVATION  94.531 

OUTFLOW  DENSITY  0.99655  G/CC 
OUTFLOW  TEMPERATURE  26.96 


ELEVATION  DEPTH  DENSITY  NORM.  VEL.  FLOW  TEMPERATURE 

99.500  0.50  0.99600  0.0000  0.0000  28.90 
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VELOCITY  (  TIMES  1000  ) 

200  400  600  800  1000  1200  1400  1600  1800  2000 
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APPENDIX  D:  ERROR  CODES 


1.  SELECT  has  various  internal  checks  that  test  for  errors  in  the  input 
file  data  and  format,  and  for  errors  in  some  of  the  program's  internal  compu¬ 
tations.  When  a  check  is  failed,  the  program  prints  an  appropriate  error 
message  and  terminates  program  execution. 

2.  The  error  message  contains  an  error  number,  a  subroutine  name,  and  a 
statement  regarding  the  type  of  error.  With  this  information,  the  line  at 
which  the  error  occurred  (and  the  cause)  can  often  be  easily  determined  by  the 
user  through  the  use  of  the  program  code.  It  is  suggested  that  the  user 
locate  the  subroutine  in  which  the  error  occurred  and  then  scan  the  CALL 
ERROR  ()  statements  therein  for  the  error  number.  (The  error  number  is  the 
first  number  in  the  ERROR  argument  list.)  The  appropriate  CALL  ERROR  () 
statement  should  be  near  the  line(s)  of  code  in  which  the  failure  occurred. 
NOTE:  Most  errors  (error  numbers  1010-1380  excluding  1080  and  1345)  are  due 
to  input  file  format  problems.  If  the  user  determines  that  the  error  is  in 
the  input  file,  check  for  missing  lines,  misplaced  lines,  misspelled  words, 
etc.,  in  the  input  file. 
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equal  to  1 
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APPENDIX  F.  PR(K;RAM  LISTINO 


0001 
0002 
OOO  ) 
0004 
OOOS 
0008 
000  ’ 
0008 
0004 
0010 
0011 
0012 
OOl  1 
00  1  4 
OOl  '1 
OOl  8 
OOl  ' 
00  18 
00  1  4 
OO.'O 

oo2  1 
002  2 
00  2  ) 
00  2  •« 
002  s 
0028 
002  ' 
002  8 

1 10  2  9 
oo  )n 
oo  U 
oo  12 
ool  1 
oo  l.4 

OO  1  2 
00  H, 
OO  1  ' 

oo  18 

OO  14 
!  It  141 1 
oo.,  1 
oo.-,  2 

1 11  I.,  1 
:  II  I.,., 

oo.,  ) 

I  H  l.,8 

I  l(  l.4 

Oil.. 8 
00,4 


pr(k;kam  select 


P  R  O  1;  R  A  M  SELECT 


*  VERSION  1  1  *  *  VERSION  1  )  * 


VERSION  1  O 


*  1  OM PETES  THE  LIMITS  OF  THE  ZONE  OF  WITHDRAWAL 

*  AND  THE  DISTRIBUTION  OF  FLOW  WITHIN  THAT  ZONE  THE 

*  PROORAM  ALSO  COMPETES  THE  oLTF'LoW  DENS  I  TV  AND  olALITY  ERoM 

*  I  NPI'T  DENSITY  AND  (REALITY  PROFILES  VERSION  1  0  IS  SEPPORTEI) 

*  BY  THF  WES  EUt^os  1NSTRECT  ION  REPORT  »F  8  2  "SELECT  A 

*  NEMER  1 1  A  l .  MODEL  FOR  SELECTIVE  WITHDRAWAL"  B'i 

*  I  ACE  E  DAVIS  FT  AI. 


*  VERSION  1  1  EF.BRCARY  18  1488 

* 

*  THF  INPET  AND  OETPET  FT  LF  CODES  WERF  HARDWIRED  IN  PROORAM 

*  THE  INPET  FILE  IS  o‘  AND  MEST  BE  CALLED  SELECT  IN  AND  THE 

*  oETPET  FT  LF  IS  of.  AND  MEST  BE  CALLED  SELECT  OE 1 

* 


* 

*  VERSION  1  2  I  ELY  2o  1440 

* 

*  CORRECTED  AN  ERROR  IN  RoETINE  DEN  I  NT  THE  RoETINP  1  AN  No 

*  LoNt-ER  SEARCH  EoR  DENSITIES  oETSlDF  THF  Poo!  WHEN  A  WEIR 

*  IS  BElNt  MODELED 

* 

* 

*  VERSION  1  1  IANEART  *:  1442 

* 

*  MADE  SEPEREOIAI  ■  HANoF.S  I'o  THF  <  oDF  AIM' PAR  AN'  F  D>  IMPRoVF 

*  READABILITY  ALSO  MADE  INi  oNSFTEENTIAl  1  HAN'  F  s  T"  I  HE  oETPET 

*  RoETINE  To  MAF'F  oETPET  FILE  MoRP  P'  PRINTER  ■  <  'MEAT  I  Bl.E  THF 

*  SEBRoETINFS  WERF  REORDERED  To  APPEAR  ALPHABF  I  I  ‘  All  Y  PVNCTIoN 

*  NAMES  IN  '.’PORT  WERE  '  'HANDED  To  MATT!  THE  VARIABLE  NAMES  IN  THE 

*  18  tc  EM  PINT  AT  I  ON 

* 

*  AN  ERROR  IN  'ONVFRIlNt  FAHRENHEIT  Jo  -  E  NT  I  <  RADF  WAS  •  ■  tRRF '  TED 

*  DEN  I  NT  WAS  oRR  F '  IFD  !«•  -V  '  <  'MM'  DA  I  F  F"IV;  MNEs  Al  1  HE 

*  reservoir  bottom  i me  .m.:h  ei  ai  eormi  ia:  -as 


e  : 


Instruction  Report  E-87-2 
July  1992 


MAIN 

0050 

★ 

CORRECTED 

TO  COMPUTE  THE  DENSITY  GRADIENT  FROM  THE  PORT 

0051 

★ 

CENTER  LINE 

TO 

THE  FREE  LIMIT,  RATHER  THAN  FROM  THE  BOUNDARY 

0052 

★ 

OF  INTERFERENCE. 

FOR  ONE  BOUNDARY  OF  INTERFERENCE,  THE 

0053 

★ 

BOHAN  AND 

GRACE  CALCULATION  OF  THE  THEORETICAL  LIMIT  NOW 

0054 

★ 

CORRECTLY 

USES 

A 

FRACTION  MULTIPLIER  FOR  THE  AMOUNT  OF  FLOW 

0055 

★ 

IN  THE  TRUNCATED 

WITHDRAWAL  ZONE.  THE  PORT  ORDERING 

0056 

★ 

ROUTINE  IN  XREAD 

WAS  CORRECTED  TO  INCLUDE  FLOW  AND  ANGLE. 

0057 

* 

(HOWINCTON) 

0058 

* 

0059 

COMMON 

/ 

AA 

/ 

QMETR ,  NSETS,  G,  HEADING  (18),  TITLE  (18) 

0060 

COMMON 

/ 

BB 

/ 

IFILE,  KFILE 

0061 

COMMON 

/ 

CC 

/ 

DELZ,  INTER,  SURFACE,  BOTTOM 

0062 

COMMON 

/ 

DD 

/ 

WTHETA  (5),  WANGLE 

006  3 

COMMON 

/ 

EE 

/ 

N PORTS ,  QPORT ,  QWEIR,  QPLOT ,  QPWEIR 

0064 

COMMON 

/ 

FF 

/ 

PVDIM  (5),  PHGT  (5),  FLOW  (5),  PHDIM  (5) 

006  5 

COMMON 

/ 

CG 

/ 

COEF ,  QSUB ,  QQUAL 

0066 

COMMON 

/ 

HH 

/ 

WRLNC,  WRHCT,  WRFLOW 

006  / 

COMMON 

/ 

1 1 

/ 

NUMD ,  DEN  (100),  YD  (100),  QDEN ,  DENPRT 

0068 

COMMON 

/ 

JJ 

/ 

NUMT ,  QCENT ,  TEMP  (100),  YT  (100),  QTEMP 

0069 

COMMON 

/ 

K.K 

/ 

NQUAL,  NUMQ  (4),  NAMEQ  (5,4), 

00/0 

6. 

QUAL  (4 , 100) ,  YQ  (4 , 100) 

00  / 1 

COMMON 

/ 

LL 

/ 

I SURF ,  HGT(IOO),  DEPTH,  Y  (100) 

00/2 

COMMON 

/ 

MM 

/ 

SUMOUT,  VEL(IOO),  FLORAT 

00  /  3 

COMMON 

/ 

NN 

/ 

HGTPRT ,  VDIM ,  QTLIM ,  QBLIM ,  QSINK1 , 

00  74 

& 

QSINK2 ,  QSHIFT 

00/5 

COMMON 

/ 

00 

/ 

LENGTH,  CREST,  HDIM 

00/6 

COMMON 

/ 

PP 

/ 

LOWLIM,  TOPLIM,  HGTLOW ,  HGTTOP ,  V  (100),  VM 

00/  / 

COMMON 

/ 

QQ 

/ 

VS  (100,  6),  NOUTS 

00/8 

COMMON 

/ 

RR 

/ 

ZUP  (6),  ZDN  (6),  LTOP  (6),  LLOW  (6) 

00/9 

COMMON 

/ 

SS 

/ 

WTHDRW  (100),  DENOUT,  TEMOUT ,  QALOUT  (4) 

0080 

COMMON 

/ 

TT 

/ 

QVENT ,  QAERA,  QTWFUN ,  TWEL 

0081 

* 

0082 

LOGICAL  1 

QDF.N  , 

QCENT 

008  3 

LOGICAL  i 

QVF.NT 

.  QAERA 

0084 

★ 

008  5 

DATA  Cl , 

C2 

/ 

-3.9863.  508929.2  / 

0086 

DATA  C3, 

C4 

/ 

288.9414,  68. 12963  / 

008/ 

★ 

0088 

★ 

DENSITIES 

FROM 

TEMPERATURES  . . 

0084 

* 

0040 

DEN FUN 

( 

X 

)  ' 

-  1  -  (  X  +  Cl  )  **  2  /  C2 

0091 

N 

*  (  X  +  C3  )  /  (  X  +  C4  ) 

0092 

* 

009  ) 

* 

FAHRENHEIT 

TO 

CENTIGRADE  ... 

0044 

* 

004  5 

T EM FUN 

( 

T 

)  ■ 

-(5/9  )*(T-32  ) 

0096 

★ 

004  / 

* 

READ  CONTROL  INFORMATION  ... 

0048 

★ 

0049 

I  FILE  - 

5 

F.2 
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MAIN 

0100 

KFILE  -  6 

0101 

* 

0102 

OPEN  (  5,  FILE  -  'SELECT. IN'  ,  STATUS  -  'OLD'  ) 

0103 

OPEN  (  6,  FILE  -  'SELECT. OUT'  ,  STATUS  -  'NEW'  ) 

0104 

* 

0105 

CALL  XREAD 

0106 

* 

0107 

INITIATE  LOOP  FOR  THE  NUMBER  OF  DATA  SETS  .... 

0108 

* 

0109 

DO  130  I  -  1,  NSETS 

0110 

* 

0111 

*.  .  .  . 

READ  INPUT  DATA  AND  CONSTRUCT  COMPLETE  DATA  TABLES  . . . 

0112 

* 

0113 

CALL  XREAD 

0114 

* 

0115 

* . 

DEVELOP  DENSITY  PROFILE  IF  NOT  GIVEN  _ 

0116 

* 

0117 

IF  (  QDEN  )  GO  TO  110 

0118 

DO  100  J  -  1,  I SURF 

0119 

IF  (  .NOT.  QCENT  )  TEMP(J)  -  TEMFUN  (  TEMP(J)  ) 

0120 

DEN  (J)  -  DENFUN  (  TEMP(J)  ) 

0121 

100 

CONTINUE 

0122 

110 

CONTINUE 

0123 

* 

0124 

CHECK  FOR  STABLE  DENSITY  PROFILE  .... 

0125 

* 

0126 

DO  120  K  -  2.  I SURF 

0127 

IF  (  DEN  (K  -  1)  .GE.  DEN  (K)  )  GO  TO  120 

0128 

WRITE  (  KFILE  ,  500  ) 

0129 

STOP 

0130 

120 

CONTINUE 

0131 

* 

0132 

* .  .  .  . 

COMPUTE  SELECTIVE  WITHDRAWAL  LIMITS  AND  VELOCITIES  AND 

0133 

* 

RESULTANT  OUTFLOW  DENSITY  AND  QUALITIES  .... 

0134 

* 

0135 

CALL  OUTVEL 

0136 

* 

0137 

★  p 

MODIFY  OUTFLOW  D.O.  IF  GATED  STRUCTURE 

0138 

* 

AERATION  IS  USED . 

0139 

* 

0140 

IF  (  QAERA  )  CALL  AERATE 

0141 

* 

0142 

*.  .  .  . 

MODIFY  OUTFLOW  D.O.  IF  TURBINE  VENTING  IS  USED  _ 

0143 

* 

0144 

IF  (  QVENT  )  CALL  VENTING 

0145 

* 

0146 

PRINT  RESULTS  .... 

0147 

★ 

0148 

CALL  XPRINT 

0149 

130 

CONTINUE 

E3 
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MAIN 

0150 

STOP 

0151  500 

FORMAT  (  ///  10X, 

27HDENSITY 

PROFILE  UNSTABLE 

0152  & 

0153 

END 

16HPROGRAM 

STOPPED  ) 

E4 
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AERATE 


SUBROUTINE  AERATE 

***************************************************************** 

*  * 

*  SUBROUTINEAERATE  * 

*  * 
***************************************************************** 

* 

*  _  PREDICTS  THE  RELEASE  D.O.  (MG/L)  THROUGH  GATED  CONDUIT  OULET 

*  WORKS  USING  THE  ENERGY  DISSIPATION  MODEL  OUTLINED  IN 

*  TR-E-81-5  BY  WILHELMS  AND  SMITH  _ 

* 

COMMON  /  AA  /  QMETR ,  NSETS ,  G,  HEADING ( 18 ) ,  TITLE(18) 
COMMON  /  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 
COMMON  /  LL  /  I SURF ,  HGT(IOO),  DEPTH,  Y(100) 

COMMON  /  MM  /  SUMOUT,  VEL(IOO) ,  FLORAT 

COMMON  /  SS  /  WTHDRW(IOO),  DENOUT,  TEMOUT,  QALOUT(4) 

COMMON  /  TT  /  QVENT ,  QAERA,  QTWFUN,  TWEL 

* 

LOGICAL  QVENT,  QAERA,  QTWFUN 
LOGICAL  QMETR 

* 

*  _  FUNCTIONS  FOR  CALCULATIONS  ADJUSTED  ESCAPE  COEFFICIENT  _ 

* 

CT(  X  )  -  C20  *  1.022  **  (  X  -  20.0  ) 

* 

*  _  DISSOLVED  OXYGEN  SATURATION  _ 

* 

DOSAT (  X  )  -  1  /  (  0.00209  *  X  +  0.06719  ) 

* 

*  _ ALTITUDE  CORRECTION  FACTOR _ 

* 

BARO(  X  )  -  1.0  -  3.224  E-5  *  X 
C20  -  0.045 

IF  (  QMETR  )  C20  -  0.1476 

* 

*  _ ADJUST  ESCAPE  COEFFICIENT  _ 

* 

C  -  CT(  TEMOUT  ) 

* 

*  _  OXYGEN  SATURATION  CONCENTRATION  ADJUSTED  FOR  ALTITUDE  _ 

* 

ALT  -  BOTTOM 

IF  (  QMETR  )  ALT  -  BOTTOM  *  3.28 
CSAT  -  DOSAT (  TEMOUT  )  *  BARO(  ALT  ) 

* 

*  _  DELTA-H  THROUGH  STRUCTURE _ 

* 

DELH  -  DEPTH  +  BOTTOM  -  TWEL 

* 

* _  DISSOLVED  OXYGEN  DEFICIT  ENTERING  STRUCTURE  _ 
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AERATE 


0051 

* 

0052 

DI  -  CSAT  -  QALOUT(l) 

0053 

* 

0054 

*.  . 

.  REAERATE  DISCHARGE  _ 

0055 

* 

0056 

DF  -  DI  *  EXP(  -  C  * 

0057 

* 

0058 

*.  . 

.  RELEASE  DISSOLVED  OXYGEN 

0059 

* 

0060 

QALOUT ( 1 )  -  CSAT  -  DF 

0061 

RETURN 

0062 

END 

DELH  ) 
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DENINT 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 


REAL  FUNCTION  DENINT  (  X  ) 

****************************************************************** 
*  * 

*  REAL  FUNCTION  DENINT  * 

*  * 
*********************************************************************** 


* 

* 

* 


* 


* 


* 


* 

* 

* 

* 

* 

* 


* 


* 

* 

* 

* 

* 


.  DETERMINE  DENSITY  AT  ANY  LOCATION  _ 


COMMON  /  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 
COMMON  /  EE  /  NPORTS ,  QPORT,  QWEIR,  QPLOT ,  QPWEIR 
COMMON  /  II  /  NUMD,  DEN(IOO),  YD(100),  QDEN,  DENPRT 
COMMON  /  LL  /  ISURF ,  HGT(IOO),  DEPTH,  Y(100) 

COMMON  /  NN  /  HGTPRT ,  VDIM,  QTLIM,  QBLIM, 

&  QSINK1 ,  QSINK2 ,  QSHIFT 


INTEGER  SIGN 

LOGICAL  QDEN,  QTLIM,  QBLIM,  QSINK1,  QSINK2 ,  QSHIFT,  QWEIR 
DATA  SMALL  /  l.E  -  05  / 

LAYER  -  1.  +  X  /  DELZ 

IF  WEIRS  ARE  BEING  MODELED,  CODE  ONLY  SEARCHES  IN  THE  POOL 
FOR  DENSITIES.  IF  PORTS  ARE  BEING  MODELED  THE  CODE  SEARCHES 
BOTH  IN  AND  OUTSIDE  THE  POOL  FOR  DENSITIES  .... 

IF  (  QWEIR  )  THEN 

IF  (  LAYER  .LE.  1  )  THEN 
LAYER  -  1 

DENINT  -  DEN  (  LAYER  ) 

RETURN 

ELSE  IF  (  LAYER  .GT.  ISURF  )  THEN 
LAYER  -  ISURF 
DENINT  -  DEN  (  LAYER  ) 

RETURN 
END  IF 
END  IF 

IF  (  X  .GE.  DEPTH  .OR.  X  .LT.  0.0  )  GO  TO  120 

IF  THE  LAYER  IS  OUTSIDE  THE  POOL,  THE  DENSITY  IS 
EXTRAPOLATED  BASED  ON  A  LINEAR  DENSITY  GRADIENT  EXTENDED 
FROM  THE  PORT  CENTERLINE  TO  THE  DESIRED  BOUNDARY  LAYER  .... 


*  _  FIND  THE  DENSITY  INSIDE  THE  POOI . 

* 

ELMID  -  DELZ  *  (  FLOAT  (  LAYER  )  -  0.5  ) 
DIFF  -  ABS  (  ELMID  -  X  ) 


E7 


Instruction  Report  E-87-2 
July  1992 

DENINT 


0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 


IF  (  DIFF  .LT.  SMALL  )  THEN 
DENINT  -  DEN  (  LAYER  ) 

RETURN 
END  IF 

* 

IF  (  LAYER  .EQ.  ISURF  .AND.  X  .GE.  ELMID  )  THEN 
SLOPE  -  (  DEN  (  ISURF  -  1  )  -  DEN  (  ISURF  )  ) 
&  /  DELZ 

DENINT  -  DEN  (  LAYER  )  -  DIFF  *  SLOPE 
RETURN 

ELS El F  (  LAYER  .EQ.  1  .AND.  X  .LE.  ELMID  )  THEN 
SLOPE  -  (  DEN  (  1  )  -  DEN  (  2  )  )  /  DELZ 
DENINT  -  DEN  (  LAYER  )  +  DIFF  *  SLOPE 
RETURN 
END  IF 

* 

SIGN  -  (  ELMID  -  X  )  /  ABS  (  ELMID  -  X  ) 

IJK  -  -  (  SIGN  -  1  )  /  2 
IJ  -  LAYER  +  IJK 
JK  -  IJ  -  1 

SLOPE  -  (  DEN  (  IJ  )  -  DEN  (  JK  )  )  /  DELZ 
ELTOP  -  DELZ  *  (  FLOAT  (  I J  )  -  0 . 5  ) 

DENINT  -  DEN  (  IJ  )  -  (  ELTOP  -  X  )  *  SLOPE 
RETURN 

120  CONTINUE 

* 

*  _  FIND  THE  DENSITY  OUTSIDE  THE  POOL _ 

* 

IF  (  HGTPRT  .GE.  DEPTH  -  0.5  *  DELZ  )  THEN 

DGRDT  -  (  DEN  (  ISURF  )  -  DEN  (  ISURF  -  1  )  ) 
&  /  DELZ 

ELSE 

DGRDT  -  (  DEN  (  ISURF  )  -  DENPRT  )  /  (  DEPTH 
END  IF 

* 

IF  (  HGTPRT  .LE.  0.5  *  DELZ  )  THEN 

DGRDB  -  (  DEN  (  1  )  -  DEN  (  2  )  )  /  DELZ 
ELSE 

DGRDB  -  (  DEN  (  1  )  -  DENPRT  )  /  HGTPRT 
END  IF 

IF  (  LAYER  .GE.  ISURF  )  DGRD  -  DGRDT 

IF  (  LAYER  .LE.  1  )  DGRD  -  DGRDB 

DENINT  -  DGRD  *  ABS  (  HGTPRT  -  X  )  +  DENPRT 

RETURN 

END 
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DVPLOT 

0001 

SUBROUTINE  DVPLOT 

0002 

***************************************************************** 

0003 

* 

* 

0004 

* 

SUBROUTINE  DVPLOT  * 

0005 

* 

* 

0006 

***************************************************************** 

0007 

* 

0008 

,  THIS  SUBROUTINE  PLOTS  PROFILES  OF  DENSITY  AND  VELOCITY 

0009 

* 

VERSUS  DEPTH  .... 

0010 

* 

0011 

COMMON  /  BB  /  IFILE ,  KFILE 

0012 

COMMON  /  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 

0013 

COMMON  /  II  /  NUMD ,  DEN  (100),  YD  (100),  QDEN,  DENPRT 

0014 

COMMON  /  LL  /  I SURF,  HGT  (100),  DEPTH,  Y  (100) 

0015 

COMMON  /  MM  /  SUMOUT,  VEL  (100),  FLORAT 

0016 

* 

0017 

CHARACTER* 1  T,  BLANK,  PEGGED,  FIRSTD ,  BOTH,  COLl(lOO), 

0018 

*  V,  D,  LASTV,  LASTD ,  C0L2(100),  FIRSTV 

0019 

* 

0020 

DIMENSION  VSPACE(ll) ,  DSPACE(ll) 

0021 

* 

0022 

CHARACTER*2  PLUS 

0023 

INTEGER  VSPACE 

0024 

LOGICAL  QRANGE ,  QDEN 

0025 

* 

0026 

DATA  PEGGED,  BLANK,  V,  D,  PLUS  /  '*' , '  \'V','D','  +’/ 

0027 

DATA  VELMAX  /  2.0  / 

0028 

DATA  BOTH  /  'B'  / 

0029 

* 

0030 

WRITE  (  KFILE,  500  ) 

0031 

* 

0032 

*.  .  .  . 

DETERMINE  MAXIMUM  VELOCITY  _ 

0033 

* 

0034 

VMAX  -  VEL  (  1  ) 

0035 

DO  100  I  -  2,  I SURF 

0036 

IF  (  VEL  (  I  )  .GT.  VMAX  )  VMAX  -  VEL  (  I  ) 

0037 

100 

CONTINUE 

0038 

* 

0039 

* .  .  .  . 

.  DETERMINE  VELOCITY  AXIS  SPACING  _ 

0040 

* 

0041 

CHANGE  -  VELMAX  *  100. 

0042 

VSPACE  (  1  )  -  0 

0043 

DO  110  K  -  1  ,  10 

0044 

VSPACE(  K  +  1  )  -  VSPACE  (  K  )  +  INT  (  CHANGE  ) 

0045 

110 

CONTINUE 

0046 

* 

0047 

DETERMINE  MAXIMUM  AND  MINIMUM  DENSITIES  FOR  AXIS  SPACING  .  . 

0048 

* 

0049 

DMIN  -  DEN  (  1  ) 

0050 

DMAX  -  DEN  (  1  ) 
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0051 

DO  115  I  -  2,  I SURF 

0052 

DMIN  -  AMIN1  (  DMIN,  DEN  (  I  )  ) 

0053 

DMAX  -  AMAX1  (  DMAX ,  DEN  (  I  )  ) 

0054 

115 

CONTINUE 

0055 

DUM  -  DMIN  *  1000. 

0056 

DMIN  -  FLOAT  (  INT  (  DUM  )  )  /  1000. 

0057 

DDIF  -  DMAX  -  DMIN 

0058 

DMAX  -  DMIN  +0.01 

0059 

IF  (  DDIF  .CT.  0.01  )  DMAX  -  DMIN  +  0.02 

0060 

* 

0061 

DETERMINE  DENSITY  AXIS  SPACING  .... 

0062 

* 

0063 

DENDIF  -  DMAX  -  DMIN 

0064 

CHANGE2  -  DENDIF  /  10. 

0065 

DSPACE  (  1  )  -  DMIN 

0066 

DO  120  J  -  1,  10 

0067 

DSPACE  (  J  +  1  )  -  DSPACE  (  J  )  +  CHANGE2 

0068 

120 

CONTINUE 

0069 

* 

0070 

* t 

PRINT  VELOCITY  AXIS  AND  LABEL  .... 

0071 

* 

0072 

WRITE  (  KFILE ,  510  ) 

0073 

WRITE  (  KFILE,  520  )  (  VSPACE  (  K  ),  K  - 

1,  11  ) 

0074 

WRITE  (  KFILE,  530  ) 

0075 

* 

0076 

*.  .  .  . 

BEGIN  TO  FILL  IN  COLUMN  ARRAY  .... 

0077 

* 

0078 

ELEV  -  BOTTOM  +  DEPTH  +  DELZ 

0079 

DEEP  -  -  DELZ 

0080 

DO  170  I  -  1,  I SURF 

0081 

K  -  I SURF  -  I  +  1 

0082 

DEEP  -  DEEP  +  DELZ 

0083 

ELEV  -  ELEV  -  DELZ 

0084 

* 

0085 

BLANK  OUT  VELOCITY  COLUMN  ARRAY  .... 

0086 

* 

0087 

FIRSTV  -  BLANK 

0088 

LASTV  -  BLANK 

0089 

DO  130  L  -  1,  100 

0090 

COL1  (  L  )  -  BLANK 

0091 

130 

CONTINUE 

0092 

* 

0093 

*.  .  .  . 

DETERMINE  IF  VELOCITY  VALUES  ARE  WITHIN  RANGE  OF  PLOT 

0094 

* 

0095 

VL  -  VEL  (  K  ) 

0096 

IF  (  VL  .LE.  0.  )  FIRSTV  -  PEGGED 

0097 

IF  (  VL  .GT.  VELMAX  )  LASTV  -  PEGGED 

0098 

* 

0099 

DETERMINE  COLUMN  FOR  PLOTTING  EACH  VELOCITY 

COMPONENT 

0100 

* 

E10 
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0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 


QRANGE  -  VL  GT  0  AND.  VL  LE  VELMAX 
I RANGE  -  0 

IF  (  QRANCE  )  1 RANGE  -  1 

IF  (  NOT  QRANGE  )  GO  TO  140 

IJK  -  INT  (  (  VL  /  VELMAX  )  *  100  ) 

IJK  -  IJK  ♦  1 
COL1  (  IJK  )  -  V 
140  CONTINUE 

* 

.  BLANK  OUT  DENSITY  COLUMN  ARRAY 

* 

FIRSTD  -  BLANK 
LASTD  -  BLANK 
DO  150  L  -  1 ,  100 

COL2  (  L  )  -  BLANK 
150  CONTINUE 

★ 

*.  .  .  .  DETERMINE  IF  DENSITY  VALUES  ARE  WITHIN  RANCE  OF  PLOT 

★ 

DN  -  DEN(K) 

IF  (  DN  .LE.  0.  )  FIRSTD  -  PEGGED 

IF  (  DN  GT.  DMAX  )  LASTD  -  PEGGED 

* 

.  DETERMINE  COLUMN  FOR  PLOTTING  EACH  DENSITY  COMPONENT  .  . 

★ 

QRANGE  -  DN  GT.  0.  .AND.  DN  LE.  DMAX 
I RANGE  -  0 

IF  (  QRANGE  )  IRANCE  -  1 

IF  (  NOT.  QRANGE  )  GO  TO  160 

IJK  -  INT  (  100.  *  (  DN  -  DMIN  )  /  DENDIF  ) 

IJK  -  IJK  +  1 
COL2  (  IJK  )  -  D 
160  CONTINUE 

DO  165  L  -  1,  100 

IF  (  COL1  (  L  )  . EQ.  V  )  GO  TO  162 
COL1  (  L  )  -  COL2  (  L  ) 

GO  TO  165 

162  CONTINUE 

IF  (  COL2  (  L  )  NE.  D  )  GO  TO  165 
COL1  (  L  )  -  BOTH 
165  CONTINUE 

* 

*. . . .  PRINT  ONE  LINE  OF  PLOT  .... 

* 

WRITE  (  KFILE ,  550  )  ELEV  ,  DEEP  ,  PLUS  ,  FIRSTV  , 
&  FIRSTD,  COL1  ,  LASTV  ,  LASTD 

170  CONTINUE 

* 

*  _  PRINT  BOTTOM  AXIS  .... 

* 
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DVPLOT 

0151 

WRITE  ( 

KFILE 

5  30  ) 

0152 

WRITE  ( 

KFILE 

570  )  (  DSPACE 

(  J 

)  .  I  - 

1 

0153 

WRITE  ( 

KFILE 

540  ) 

0154 

★ 

0155 

* 

QUIT 

0156 

* 

0157 

RETURN 

0158 

k 

0159 

500 

FORMAT 

(  1H1  , 

///  ) 

0160 

510 

FORMAT 

(  30X  , 

2 3HVELOC I TY  (  TIMES 

1000  ) 

) 

0161 

520 

FORMAT 

(  1 IX  , 

11110  ) 

0162 

530 

FORMAT 

(  20X  , 

10  (  10HI . 

,  1 H I 

) 

0163 

540 

FORMAT 

(  30X  . 

12HDENSITY  G/CC 

) 

0164 

550 

FORMAT 

(  IX  . 

F  7  2 .  IX,  F  7  2 . 

A2  . 

104A1 

) 

0165 

570 

FORMAT 

(  1 IX  . 

11F10.5  ) 

0166 

END 
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ERROR 


0001 
0002 
000  1 
0004 
0005 
0006 
000  7 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
00 1  5 
0016 
001  7 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
002  7 
0028 
0029 
0030 
0031 
0032 


SUBROUTINE  ERROR  (  ERR,  SUBR ,  CHK ,  XCHK1 ,  XCHK2 ,  XCHK3  ) 

************************  A-****************************  ******-e****** 

*  * 

*  SUBROUTINE  ERROR  * 

★  ★ 

★ 

THERE  ARE  TWO  TYPES  OF  ERROR  CHECKS  -  ONE  FOR  INPUT 
FORMATTING  AND  ONE  FOR  PROGRAM  COMPUTATIONS,  FOR  PROGRAM 
COMPUTATIONS,  ONLY  THE  ERROR  NUMBER  AND  THE  SUBROUTI NE - 0F- 
OCCURRANCE  NAME  ARE  PASSED  TO  THE  ERROR  SUBROUTINE.  THEN  AN 
APPROPRIATE  STATEMENT  IS  MATCHED  WITH  THE  ERROR  NUMBER  AND 
PRINTED.  THE  OTHER  ARGUMENTS  PASSED  /ARE  EQUAL  TO  ZERO  .... 


* 

* 

★ 

* 

* 

■*- 


FOR  FORMAT  ERRORS,  THE  ERROR  NUMBER, 
OCCURRANCE  NAME,  THE  STRING  IN  ERROR, 
EXPECTED  BY  THE  PROGRAM  ARE  PASSED. 
PASSED  AS  ZERO  .... 

COMMON  /  BB  /  I  FILE,  KFILE 


THE  SUBROUT I NE- OF - 
AND  THE  STRING ( S ) 
UNUSED  ARGUMENTS  ARE 


INTEGER  ERR 

CHARACTER*4 

CHARACTER*6 


CHK,  XCHK1 ,  XCHK2 , 
SUBR 


XCHK3 


PRINT  ERROR  NUMBER  AND  SUBROUTINE-OF-OCCURRANCE 


WRITE  (  KFILE,  500  )  ERR,  SUBR 


MATCH  ERROR  CODE  WITH  PROPER  OUTPUT  STATEMENT 


0033 

*  , 

. .  ERROR 

CODES 

FOR  IMPROPER  INPUT  VALUES 

0034 

* 

0035 

IF 

(  ERR 

. EQ .  1400 

)  WRITE  (  KFILE, 

510 

) 

0036 

IF 

(  ERR 

. EQ .  1410 

)  WRITE  (  KFILE, 

520 

) 

0037 

IF 

(  ERR 

.EQ.  1420 

)  WRITE  (  KFILE, 

530 

) 

0038 

* 

0039 

★ 

. .  ERROR 

CODES 

FOR  INTERNAL  COMPUTATIONS 

0040 

* 

0041 

IF 

(  ERR 

.EQ.  2100 

OR.  ERR  F.Q.  20  70  OR. 

0042 

& 

ERR 

.EQ.  2090 

.  OR  ERR  EQ  .  2  300  ) 

004  3 

& 

WRITE  (  KFILE 

,  540  ) 

0044 

IF 

(  ERR 

.EQ.  2310 

)  WRITE  (  KFILE, 

570 

) 

0045 

IF 

(  ERR 

. EQ .  2320 

)  WRITE  t  KFILE, 

580 

) 

0046 

* 

004  7 

★  . 

. .  ERROR 

CODES 

FOR  HALF 

INTERVAL  SEARCH  CONVERGENCE  ERRORS 

0048 

* 

0049 

IF 

(  ERR 

EQ.  2310 

)  WRITE  (  KFILE, 

570 

) 

0050 

IF 

(  ERR 

.EQ.  2080 

. OR .  ERR  . EQ .  2110  ) 

El  3 
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0051  &  WRITE  (  KFILE,  590  ) 

0052  IF  (  ERR  .EQ.  1080  )  WRITE  (  KFILE,  600  ) 

0053  * 

0054  IF  THIS  SUBROUTINE  USED  ONE  OF  THE  ABOVE  'IF'  STATEMENTS 

0055  *  THEN  THE  FOLLOWING  IF  STATEMENT  IS  USED  TO  EXIT  PROGRAM 

0056  * 

0057  IF  (  XCHK1  , EQ .  '0  '  AND  XCHK2  EQ .  '0 

0058  &  .AND.  XCHK3  . EQ .  '0  '  )  GO  TO  100 

0059  * 

0060  *. . . .  ERROR  CODES  FOR  INPUT  FORMAT  FAILURE  CHECKS  ... 

0061  * 

0062  *....  IF  VARIABLE  'CHECK'  WAS  TESTED  FOR  ONLY  ONE  STRING  VALUE 

0063  *  DURING  PROGRAM  OPERATION  .... 

0064  * 

0065  IF  (  XCHK2  EQ.  '0  '  .AND.  XCHK3  . EQ .  ' 0  '  ) 

0066  &  WRITE  (  KFILE,  610  )  CHK ,  XCHK1 

0067  * 

0068  *....  IF  VARIABLE  'CHECK'  WAS  TESTED  FOR  ONE  OF  TWO  STRING  VALUES 

0069  *  DURING  PROGRAM  OPERATION  .... 

0070  * 

0071  IF  (  XCHK2  .NE.  '0  '  .AND.  XCHK3  .  EQ .  '0  '  ) 

0072  &  WRITE  (  KFILE,  620  )  CHK,  XCHK1 ,  XCHK2 

0073  * 

0074  * _  IF  VARIABLE  'CHECK'  WAS  TESTED  FOR  ONE  OF  THREE  STRING  VALUES 

0075  *  DURING  PROGRAM  OPERATION  .... 

0076  * 

0077  IF  (  XCHK2  .NE.  '0  ’  .AND.  XCHK3  .NE.  '0  '  ) 

0078  &  WRITE  (  KFILE,  630  )  CHK,  XCHK1 ,  XCHK2 ,  XCHK3 

0079  100  STOP 

0080  * 

0081  500  FORMAT  (  /.'ERROR  NUMBER  ',14, 

0082  &  '  OCCURRED  IN  SUBROUTINE'  ,  A6  ) 

0083  510  FORMAT  (/,  'FLOW  RATE  FOR  A  PORT  WAS  FOUND  TO  BE',  /, 

0084  &  'LESS  THAN  OR  EQUAL  TO  ZERO.',  /,  'ENTERED  FLOWRATE', 

0085 

0086  & 

0087  520 

0088  & 

0089  530 

0090  540 

0091  570 

0092  580 

0093  & 

0094  590 

0095  & 

0096 

0097  600  FORMAT  (  /.'NUMBER  OF  LAYERS  DIMENSIONED  WAS  EXCEEDED') 

0098  610  FORMAT  (  /,  'INTERNAL  CHECK  WAS  "’,A4,  /, 

0099  &  ’PROGRAM  EXPECTED  ,  A4 ,  AS  FIRST  FOUR’,  /, 

0100  &  'CHARACTERS  OF  INPUT  LINE.') 


'  MUST  BE  GREATER  THAN  ZERO.') 

FORMAT  (  /,  'CENTER  LINE  OF  PORT  WAS  HIGHER  ',  /, 

'THAN  THE  WATER  SURFACE.’) 

FORMAT  (  /,  'FLOW  RATE  FOR  WEIR  MUST  BE  >  THAN  ZERO’  ) 
FORMAT  (  /,'***  COMPUTATIONAL  ERROR  IN  PROGRAM  '  ) 

FORMAT  (  /.'CONVERGENCE  IN  SUBROUTINE  SHIFT  FAILED.') 
FORMAT  (  /,  'IN  HALF  INTERVAL  SEARCH,  CONVERGENCE  ON  THE', 
/,  'UPPER  OR  LOWER  WITHDRAWAL  LIMIT  FAILED') 
FORMAT  (  /,  'IN  HALF  INTERVAL  SEARCH,  CONVERGENCE  ON  ',/, 
'THE  UPPER  OR  LOWER  WITHDRAWAL  LIMIT  FAILED.') 


E14 


ERROR 


I  us  l  i  m  l  l  on  R*-poi  t  K  B 

I u  ]  v  1^'J 


0101  620  FORMAT  (  /.'INTERNAL  CHECK  WAS  “ ' .  A4 . 

0102  &  '  P ROC RAM  EXPECTED  .  A4  .  OR  .  A -4  . 

0101  h  'AS  FIRST  FOUR  CHARACTERS  OF  INPUT  LINE  ') 

0104  630  FORMAT  (  /.  'INTERNAL  (HECK  WAS  " ' . Am ,  /. 

oios  &  'PRcx;ram  expected  A4 .  •••  or  •••.  a-..  •••' 

0106  N  'OR  A4.  '"AS  FIRST  FOUR  CHARACTERS  OF' 

0107  {.  '  INPUT  LINE  '  > 

0108  END 
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0001 
0002 
000  3 
0004 
000  b 
0006 
000/ 
0008 
0009 
0010 
001  1 
0012 
00 1  3 
0014 
001b 
0016 
001  7 
0018 
00 1 9 
0020 
0021 
0022 
002  3 
0024 
0025 
0026 
002  7 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
004  3 
0044 
0045 
0046 
004  7 
0048 
0049 
0050 


SUBROUTINE  INTERP  (  PQUAL,  YV ,  NUMV  ) 

*•*"****  +  ******  +  ★***★★★★*★****★★****★★★★★★★★★★★★★★★**★★★★★★*★★★★*■★★★ 
★  ★ 
★  SUBROUTINE  INTER?  * 


* 

*  PROGRAM  TO  DEVELOP  COMPLETE  DATA  TABLES  OR  PROFILES  BY  LINEAR 

*  INTERPOLATION  OF  INPUT  DATA  .... 

* 

COMMON  /  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 
COMMON  /  LL  /  I  SURF ,  HOT  (100),  DEPTH,  Y  (100) 

★ 

DIMENSION  PQUAL  (100).  YV  (100),  PVALUE  (100), 

&  DM  (  100)  ,  PM  ( 100) 

* 

INTEGER  SICN1,  SIGN 2 

* 

*  TOLERANCE,  0.01%  OF  l .AYER  THICKNESS  .  .  . 

★ 

SMALL  -  0.0001  *  DELZ 

★ 

*. . . .  IF  DATA  IS  ORDERED  FROM  TOP  TO  BOTTOM,  IT  MUST  BE  RESEQUENCED 

*  FROM  BOTTOM  TO  TOP  ... 

* 

IF  (  YV ( 1 )  . LT  YV( 2 )  )  CO  TO  120 

NV  -  NUMV  +  1 

* 

* . . .  RESEQUENCE  .... 

+ 

DO  100  I  -  1 ,  NUMV 
DM  ( I )  -  YV  ( NV  -  I  ) 

PM ( I )  -  PQUAL ( NV  -  I) 

100  CONTINUE 

DO  110  I  -  1 ,  NUMV 
YV( I )  -  DM ( 1 ) 

PQUAL(I)  -  PM( I ) 

110  CONTINUE 

120  CONTINUE 

★ 

*. . . .  ASSIGN  PARAMETER  VALUE  TO  INTERP  VARIABLE  .... 

★ 

DO  130  I  -  1 ,  NUMV 

PVALUE ( I )  -  PQUAL(I) 

130  CONTINUE 

* 

*. . . .  START  PROFILE  DEVELOPMENT  .... 

★ 

*....  ANY  CENTER  LINE  ELEVATION  BELOW  LOWEST  PARAMETER  POINT 
*  IS  ASSIGNED  THE  VALUE  OF  THAT  PARAMETER  POINT  .... 
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0051 

★ 

0052 

DO  140  I  -  1,  I SURF 

0053 

IF  (  Y(I)  .GT.  YV(1)  )  GO  TO  150 

0054 

PQUAL(I)  -  PVALUE(l) 

0055 

140 

CONTINUE 

0056 

150 

CONTINUE 

0057 

J  -  I 

0058 

* 

0059 

* . 

ANY  CENTER  LINE  ELEV .  ABOVE  HEIGHEST  PARAMETER  POINT  IS 

0060 

* 

ASSIGNED  THAT  PARAMETER  VALUE  .... 

0061 

* 

0062 

DO  160  I  -  1,  ISURF 

0063 

L  -  ISURF  +1-1 

0064 

IF  (  Y(L)  .LT.  YV(NUMV)  )  GO  TO  170 

0065 

PQUAL(L)  -  PVALUE(NUMV) 

0066 

160 

CONTINUE 

0067 

170 

CONTINUE 

0068 

* 

0069 

FIRST  CENTER  LINE  BELOW  HIGHEST  PARAMETER  POINT  .... 

0070 

* 

0071 

K  -  L 

0072 

k 

0073 

k  . 

FIRST  CENTER  LINE  ABOVE  LOWEST  PARAMETER  POINT  .... 

0074 

* 

0075 

I  -  J  -  1 

0076 

180 

CONTINUE 

0077 

I  -  I  +  1 

0078 

IF  (  I  .GT.  K  )  GO  TO  270 

0079 

NMINUS  -  NUMV  -  1 

0080 

* 

0081 

* .  .  .  . 

LOCATE  DATA  POINTS  ABOVE  AND  BELOW  THE  LAYER  CENTER  LINE 

0082 

* 

0083 

DO  230  M  -  1,  NMINUS 

0084 

DIFF1  -  ABS  (  YV(M)  -  Y(I)  ) 

0085 

IF  (  DIFF1  .LT.  SMALL  )  GO  TO  190 

0086 

* 

0087 

* .  .  .  . 

IF  SIGN1  IS  NEGATIVE,  FIRST  DATA  POINT  LIES  BELOW  CENTER 

0088 

* 

LINE  IF  SIGN1  IS  POSITIVE,  POINT  LIES  ABOVE  CENTER  LINE 

0089 

* 

0090 

SIGN1  -  (  YV(M)  -  Y(I)  )  /  DIFF1  *  1.2 

0091 

GO  TO  200 

0092 

190 

CONTINUE 

0093 

SIGN1  -  0 

0094 

200 

CONTINUE 

0095 

DIFF2  -  ABS  (  YV(M+1 )  -  Y(I)  ) 

0096 

IF  (  DIFF2  .LT.  SMALL  )  GO  TO  210 

0097 

* 

0098 

* .  .  .  . 

IF  SIGN2  IS  NEGATIVE,  SECOND  DATA  POINT  LIES  BELOW  CENTER 

0099 

* 

LINE  IF  SIGN2  IS  POSITIVE,  POINT  IS  ABOVE  CENTER  LINE  ... 

0100 

* 
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0101 

SIGN2  — (YV(M+1)  -  Y  (  I  )  )/  DIFF2  *  1.2 

0102 

GO  TO  220 

0103 

210 

CONTINUE 

0104 

SIGN2  -  0 

0105 

220 

CONTINUE 

0106 

* 

0107 

*.  .  . 

IF  BOTH  DATA  POINTS  ARE  BELOW  CENTER  LINE,  LOOP  AGAIN  .. 

0108 

* 

0109 

IF  (  SIGN1  .EQ.  SIGN2  .AND.  SIGN1  .EQ.  -1  )  GO  TO 

0110 

GO  TO  240 

0111 

230 

CONTINUE 

0112 

240 

CONTINUE 

0113 

* 

0114 

*.  .  . 

DOES  CENTER  LINE  LIE  VERY  CLOSE  TO  DATA  POINT  .... 

0115 

* 

0116 

IF  (  SIGN1  .EQ.  0  )  GO  TO  250 

0117 

IF  (  SIGN2  .EQ.  0  )  GO  TO  260 

0118 

* 

0119 

* .  .  . 

INTERPOLATE  BETWEEN  DATA  POINTS  FOR  VALUE  AT  CENTER  LINE 

0120 

* 

0121 

PQUAL(I)  -  (  (  PVALUE  (  M  +  1  )  -  PVALUE  (  M  )  ) 

0122 

&  *  (  Y  (  I  )  -YV(M)  )/ 

0123 

&  (  YV  (  M  +  1  )  -  YV  (  M  )  )  )  +  PVALUE  (  M 

0124 

GO  TO  180 

0125 

250 

CONTINUE 

0126 

* 

0127 

*.  .  . 

ASSIGN  LOWER  DATA  POINT  VALUE  TO  CENTER  LINE  .... 

0128 

* 

0129 

PQUAL  (  I  )  -  PVALUE  (  M  ) 

0130 

GO  TO  180 

0131 

260 

CONTINUE 

0132 

* 

0133 

* .  .  . 

ASSIGN  UPPER  DATA  POINT  VALUE  TO  CENTER  LINE  .... 

0134 

* 

0135 

PQUAL  (  I  )  -  PVALUE  (  M  +  1  ) 

0136 

GO  TO  180 

0137 

270 

CONTINUE 

0138 

RETURN 

0139 

END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 


SUBROUTINE  OUTVEL 

***************************************************************** 

*  * 

*  SUBROUTINEOUTVEL  * 

*  * 
***************************************************************** 

* 

THIS  IS  THE  CONTROL  MODULE  FOR  THE  COMPUTATION  PORTION  OF 

*  THIS  PROGPAM  .... 

* 

COMMON  /  DD  /  WTHETA  (5),  WANGLE 

COMMON  /  EE  /  NPORTS ,  QPORT,  QWEIR,  QPLOT,  QPWEIR 
COMMON  /  FF  /  PVDIM  (5),  PHGT  (5),  FLOW  (5),  PHDIM  (5) 
COMMON  /  GG  /  COEF ,  QSUB,  QQUAL 
COMMON  /  HH  /  WRLNG ,  WRHGT ,  WRFLOW 

COMMON  /  II  /  NUMD ,  DEN  (100),  YD  (100),  QDEN ,  DENPRT 
COMMON  /  JJ  /  NUMT ,  QCENT,  TEMP(IOO),  YT  (100),  QTEMP 
COMMON  /  KK  /  NQUAL ,  NUMQ  (4),  NAMEQ  (5,4), 

&  QUAL  (4,100),  YQ  (4,100) 

COMMON  /  LL  /  I SURF ,  HGT  (100),  DEPTH,  Y  (100) 

COMMON  /  MM  /  SUMOUT,  VEL  (100),  FLORAT 
COMMON  /  NN  /  HGTPRT ,  VDIM,  QTLIM,  QBLIM ,  QSINK1, 

&  QSINK2 ,  QSHIFT 

COMMON  /  00  /  LENGTH,  CREST,  HDIM 

COMMON  /  PP  /  LOWLIM,  TOPLIM,  HGTLOW ,  HGTTOP ,  V  (100),  VM 
COMMON  /  QQ  /  VS  (100,6),  NOUTS 

COMMON  /  RR  /  ZUP  (6),  ZDN  (6),  LTOP  (6),  LLOW  (6) 

COMMON  /  SS  /  WTHDRW  (100),  DENOUT,  TEMOUT,  QALOUT  (4) 
COMMON  /  TT  /  QVENT ,  QAERA,  QTWFUN,  TWEL 

* 

INTEGER  TOPLIM 

* 

LOGICAL  QPORT,  QWEIR,  QSUB,  QTEMP,  QPWEIR 

★ 

REAL  LENGTH 

* 

CHARACTER*4  XDUMY ,  XDUMY1 ,  XDUMY2 ,  XDUMY3 ,  NAMEQ 
CHARACTER*6  SUBR 

* 

DATA  XDUMY,  XDUMY1,  XDUMY 2 ,  XDUMY 3  /  4  *  '0  '  / 

DATA  SUBR  /  'OUTVEL'  / 

* 

LAYER  (  X  )  -  1.  +  X  /  DELZ 
NOUTS  -  NPORTS 

IF  (  QWEIR  )  NOUTS  -  NOUTS  +  1 

* 

.  INITIALIZE  THE  TOTAL  OUTFLOW  FLOW  RATE  PROFILE  .... 

* 

DO  100  I  -  1,  ISURF 
VEL  (I)  -  0.0 
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0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 


100  CONTINUE 

SUMOUT  -  0.0 

* 

*  _  DETERMINE  TYPE  OF  WITHDRAWAL  _ 

* 

IF  (  QPORT  )  GO  TO  110 
IF  (  QWEIR  )  GO  TO  140 

* 

*  _  SELECTIVE  WITHDRAWAL  FOR  ORIFICE  FLOW _ 

* 

110  CONTINUE 

DO  130  K  -  1,  NPORTS 

* 

*  _ VARIABLE  ASSIGNMENTS  _ 

* 

QPWEIR  -  .FALSE. 

FLORAT-  FLOW(K) 

IF  (  FLORAT  .LE.  0.  ) 

&  CALL  ERROR  (  1400  ,  SUBR,  XDUMY,  XDUMY1 ,  XDUMY2 , 

&  XDUMY 3  ) 

SUMOUT  -  SUMOUT  +  FLORAT 

VDIM  -  PVDIM(K) 

HDIM  -  PHDIM(K) 

HGTPRT  -  PHGT(K) 

IF  (  HGTPRT  .GE.  DEPTH  ) 

&  CALL  ERROR  (  1410  ,  SUBR,  XDUMY,  XDUMY 1 ,  XDUMY2 , 

&  XDUMY 3  ) 

DENPRT  -  DENINT  (  HGTPRT  ) 

WANGLE  -  WTHETA  (  K  ) 

* 

*  _  CHECK  FOR  PARTIALLY  SUBMERGED  PORT _ 

* 

FLODEP  -  DEPTH  -  HGTPRT  +  VDIM/2 . 

IF  (  VDIM  .LE.  FLODEP  )  GO  TO  115 
VW  =  FLORAT  /  (  FLODEP  *  HDIM  ) 

VHL  -  (  VW  *  FLODEP  **  . 5  )  /  HDIM 
IF  (  VHL  . GT .  0.5  )  GO  TO  115 

* 

*  _  PARTIALLY  SUBMERGED  PORT  -  TREAT  AS  A  WEIR _ 

* 

QPWEIR  -  .TRUE. 

QSUB  -  .TRUE. 

LENGTH  -  HDIM 

CREST  -  HGTPRT  -  VDIM/2. 

* 

CALL  VWEIR 

* 

GO  TO  116 

115  CONTINUE 

* 
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0101  * _  FULLY  SUBMERGED  PORT  .... 

0102  * 

0103  CALL  VPORT 

0104  * 

0105  116  CONTINUE 

0106  * 

0107  *....  ASSIGN  FLOW  RATE  PROFILE  VALUES  CALCULATED  IN  VPORT 

0108  *  OR  VWEIR  TO  AN  ARRAY  .... 

0109  * 

0110  DO  120  I  =  1,  I SURF 

0111  VS(I ,K)  -  V(I) 

0112  120  CONTINUE 

0113  * 

0114  * _ ASSIGN  WITHDRAWAL  LIMIT  VALUES  TO  AN  ARRAY _ 

0115  * 

0116  ZUP  (  K  )  -  HGTTOP 

0117  ZDN  (  K  )  =  HGTLOW 

0118  LTOP  (  K  )  =  TOPLIM 

0119  LLOW  (  K  )  =  LOWLIM 

0120  130  CONTINUE 

0121  140  CONTINUE 

0122  IF  (  .NOT.  QWEIR  )  GO  TO  160 

0123  * 

0124  * _  SELECTIVE  WITHDRAWAL  FOR  WEIR  FLOW _ 

0125  * 

0126  FLORAT  -  WRFLOW 

0127  SUMOUT  -  SUMOUT  +  FLORAT 

0128  IF  (  FLORAT  .LE.  0.) 

0129  &  CALL  ERROR  (  1420  ,  SUBR,  XDUMY ,  XDUMYl ,  XDUMY2 , 

0130  &  XDUMY 3  ) 

0131  LENGTH  -  WRLNG 

0132  CREST  -  WRHGT 

0133  * 

0134  * _  DETERMINE  WITHDRAWAL  LIMITS  AND  FLOW  RATE  PROFILES  _ 

0135  * 

0136  CALL  VWEIR 

0137  * 

0138  *....  ASSIGN  FLOW  RATE  PROFILE  VALUES  CALCULATED  IN  VWEIR  TO  AN 

0139  *  ARRAY  .... 

0140  * 

0141  DO  150  I  -  1,  I SURF 

0142  VS ( I , NOUTS )  =  V(I) 

0143  150  CONTINUE 

0144  * 

0145  * _ ASSIGN  WITHDRAWAL  LIMIT  VALUES  TO  ARRAY  _ 

0146  * 

0147  ZUP  (  NOUTS  )  -  HGTTOP 

0148  ZDN  (  NOUTS  )  -  HGTLOW 

0149  LTOP  (  NOUTS  )  -  TOPLIM 

0150  LLOW  (  NOUTS  )  -  LOWLIM 
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0151 

160 

CONTINUE 

0152 

* 

0153 

*.  .  .  . 

IF  MUTIPLE  OUTLETS  CALL  SHIFT  .... 

0154 

* 

0155 

IF  (  NOUTS  .GT.  1  )  CALL  SHIFT 

0156 

* 

0157 

*.  .  .  . 

DETERMINE  TOTAL  OUTFLOW  FLOW  RATE  DISTRIBUTION 

0158 

* 

0159 

DO  180  I  -  1,  ISURF 

0160 

DO  170  J  -  1,  NOUTS 

0161 

VEL  (  I  )  -  VEL  (  I  )  +  VS  (  I 

t 

J 

) 

0162 

170 

CONTINUE 

0163 

180 

CONTINUE 

0164 

* 

0165 

* .  .  .  . 

FIND  MAXIMUM  LAYER  FLOW  RATE  .... 

0166 

* 

0167 

VMAX  -  VEL  (  LOWLIM  ) 

0168 

DO  185  I  -  1,  ISURF 

0169 

VMAX  -  AMAX1  (  VMAX,  VEL  (  I  ) 

) 

0170 

185 

CONTINUE 

0171 

* 

0172 

ASSIGN  LAYER  FLOW  RATES  TO  WTHDRW(I) 

0173 

* 

0174 

DO  190  I  -  1,  ISURF 

0175 

WTHDRW  (  I  )  -  VEL  (  I  )  *  HGT 

( 

I 

) 

0176 

190 

CONTINUE 

0177 

DO  200  I  -  1,  ISURF 

0178 

VEL  (  I  )  -  VEL  (  I  )  /  VMAX 

0179 

200 

CONTINUE 

0180 

* 

0181 

COMPUTE  THE  RELEASE  DENSITY  .... 

0182 

* 

0183 

SUMDF  -  0. 

0184 

DO  210  I  -  1,  ISURF 

0185 

SUMDF  -  SUMDF  +  DEN  (  I  )  *  WTHDRW 

(  I  ) 

0186 

210 

CONTINUE 

0187 

DENOUT  -  SUMDF  /  SUMOUT 

0188 

* 

0189 

COMPUTE  RELEASE  TEMPERATURE  .... 

0190 

* 

0191 

IF  (  .NOT.  QTEMP  )  GO  TO  230 

0192 

SUMTF  -  0. 

0193 

DO  220  I  -  1,  ISURF 

0194 

SUMTF  -  SUMTF  +  TEMP  (  I  )  *  WTHDRW 

(  I  ) 

0195 

220 

CONTINUE 

0196 

TEMOUT  -  SUMTF  /  SUMOUT 

0197 

230 

CONTINUE 

0198 

* 

0199 

* .  .  .  . 

COMPUTE  RELEASE  QUALITIES  .... 

0200 

* 
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0201 

IF  (  NQUAL  .EQ.  0  )  GO  TO  260 

0202 

DO  250  J  -  1,  NQUAL 

0203 

SUMQF  -  0. 

0204 

DO  240  I  -  1,  ISURF 

0205 

SUMQF  -  SUMQF  +  QUAL(J,I)  *  WTHDRW  (  I  ) 

0206 

240 

CONTINUE 

0207 

QALOUT  (  J  )  -  SUMQF  /  SUMOUT 

0208 

250 

CONTINUE 

0209 

260 

CONTINUE 

0210 

RETURN 

0211 

END 
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0001  SUBROUTINE  SHIFT 

0002  ***************************************************************** 

0003  *  * 

0004  *  SUBROUTINESHIFT  * 

0005  *  * 

0006  ***************************************************************** 

0007  * 

0008  THIS  SUBROUTINE  SHIFTS  THE  INNER  WITHDRAWAL  LIMITS  WHEN  TWO 

0009  *  WITHDRAWAL  ZONES  OVERLAP  .... 

0010  * 


0011 

COMMON 

/ 

AA 

/ 

0012 

COMMON 

/ 

BB 

/ 

0013 

COMMON 

/ 

CC 

/ 

0014 

COMMON 

/ 

EE 

/ 

0015 

COMMON 

/ 

FF 

/ 

0016 

COMMON 

/ 

II 

/ 

0017 

COMMON 

/ 

HH 

/ 

0018 

COMMON 

/ 

LL 

/ 

0019 

COMMON 

/ 

MM 

/ 

0020 

COMMON 

/ 

NN 

/ 

0021 

& 

0022 

COMMON 

/ 

00 

/ 

0023 

COMMON 

/ 

PP 

/ 

0024 

COMMON 

/ 

QQ 

/ 

0025 

COMMON 

/ 

RR 

/ 

0026 

* 

0027 

LOGICAL  QPORT 

0028 

& 

Q1 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 


* 

* , 
* 


* 

* . 
* 


QSINK2,  QSHIFT 


PHDIM  (5) 


>,  DEPTH,  Y  (100) 

)  ,  FLORAT 

QTLIM ,  QBLIM ,  QSINK1, 


V  (100) ,  VM 


QWEIR  ,  QSBLIM ,  QSTLIM ,  QBLIM, 

Q2  ;  QTLIM 

LOGICAL  QPRINT ,  QSINK1,  QSINK2 ,  QSHIFT 


INTEGER  TOPLIM,  XXX 

CHARACTER*4  XDUMY,  XDUMYl ,  XDUMY2 , 
CHARACTER*6  SUBR 


DATA  MAX 
DATA  TINY 
DATA  QPRINT 

DATA  XDUMY,  XDUMYl,  XDUMY2 
DATA  SUBR 


XDUMY3 


XDUMY 3 


/  10 

/  l.E-07 
/  .TRUE. 

/  4**0 
/  'SHIFT' 


/ 

/ 

/ 

/ 

/ 


LAYER  NO.  LOCATION  OF  X  .... 

LAYER  (  X  )  -  I .  +  X  /  DELZ 
FROUD  (  X,  D,  ZL  )  -  SQRT  ( 
i.  DENINT  ( 

BASED  ON  BOHAN  AND  GRACE  .... 


*  ABS 

)  /  D 


ABS  (  X  -  ZL  )  ) 


FSHIFT  (  VH,  X,  D,  ZL  ) 


VH 


HTEST  *  FROUD  (  X,  D,  ZL) 
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0051 

* 

0052 

TOLERANCE ,  10%  OF  THE  LAYER  THICKNESS  _ 

0053 

* 

0054 

SMALL  -  .10  *  DELZ 

0055 

* 

0056 

INITIALIZE  LOGICAL  VARIABLE  .... 

0057 

* 

0058 

QSTLIM  -  .FALSE. 

0059 

QSBLIM  -  .FALSE. 

0060 

QBLIM  -  .FALSE. 

0061 

QTL1M  -  .FALSE. 

0062 

QSHIFT  -  .FALSE. 

0063 

* 

0064 

*.  .  .  . 

CHECK  FOR  OVERLAP  OF  WITHDRAWAL  ZONES.  IS  LOWER  LIMIT  ( 

0065 

* 

UPPER  PORT  BELOW  UPPER  LIMIT  OF  LOWER  PORT  .... 

0066 

* 

0067 

NMINUS  -  NOUTS  -  1 

0068 

DO  260  K  -  1,  NMINUS 

0069 

H  -  ZDN  (  K  +  1  )  -  ZUP  (  K  ) 

0070 

IF  (  H  .CE.  0.  )  CO  TO  260 

0071 

* 

0072 

* .  .  .  . 

SET  UP  PARAMETERS  FOR  SHIFTING  LIMITS  .... 

0073 

* 

0074 

H  -  ABS  (  H  ) 

0075 

IF  (  QWEIR  .AND.  K  .EQ.  NOUTS  -  1  )  GO  TO  100 

0076 

HO  -  PHGT  (  K  +  1  )  -  PHGT  (  K  ) 

0077 

GO  TO  110 

0078 

100 

CONTINUE 

0079 

* 

0080 

ZONES  FROM  WEIR  AND  A  PORT  OVERLAP  .... 

0081 

* 

0082 

HO  -  CREST  -  PHCT(K) 

0083 

no 

CONTINUE 

0084 

HTEST  -  .7  *  (  H  /  HO  )  **  1 .25 

0085 

VH1  -  0. 

0086 

VH2  -  0. 

008  7 

* 

0088 

*  _ 

K  +  1  IS  THE  UPPER  PORT.  K  IS  THE  LOWER  PORT  .... 

0089 

★ 

0090 

LI  -  LLOW  (  K  +  1  ) 

0091 

L2  -  LTOP  (  K  ) 

0092 

★ 

009  3 

NUMBER  OF  LAYERS  BETWEEN  OVERLAPPING  LIMITS,  INCLUSIVE 

0094 

* 

0095 

IAY  -  L2  -  LI  +  1 

0096 

DO  120  I  -  LI.  L2 

009  7 

★ 

0098 

DETERMINE  AVERAGE  VELOCITY  IN  OVERLAPPING  REGION 

0099 

* 

0100 

VH1  -  VH1  +  VS  (  I  ,  K  ) 

F.  7  '> 
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SHIFT 

0101 

0102  120 
0103 
0104 

0105  * 

0106 

0107  * 

0108 
0109 

0110  * 

0111 

0112  * 

0113 
0114 

0115  * 

0116  *.... 

0117  * 

0118 
0119 
0120 

0121  * 

0122 

0123  * 

0124 

0125  * 

0126  * 

0127 
0128 
0129 
0130 

0131  125 

0132  * 


0133 

* . 

DETERMINE  FUNCTION  SIGN  AT  EACH  SEARCH  LIMIT  AND  ORIGINAL 

0134 

* 

UPPER  LIMIT  OF  LOWER 

PROFILE  IF  THE  FUNCTION  SIGN  IS 

0135 

* 

POSITIVE 

,  ASSUMED  AMOUNT 

OF  SHIFT  IS  LESS  THAN  ACTUAL 

0136 

* 

AMOUNT  OF  SHIFT;  IF 

FUNCTION  SIGN  IS  NEGATIVE,  ASSUMED  AMOUNT 

0137 

* 

OF  SHIFT 

IS  GREATER 

THAN  ACTUAL  AMOUNT  OF  SHIFT  .... 

0138 

* 

0139 

KOUNT 

-  0 

0140 

XI  - 

DEPTH 

0141 

130 

CONTINUE 

0142 

KOUNT 

-  KOUNT  +  1 

0143 

IF  ( 

KOUNT  GE.  5 

)  GO 

TO  135 

0144 

X2  - 

ZUP  (  K  ) 

0145 

F2  - 

FSHIFT  (  VH1 

,  X2. 

DENS2 ,  ZL2  ) 

0146 

Q2  - 

F2  GT.  0. 

0147 

XI  - 

XI  *  2.0 

0148 

FI  - 

FSHIFT  (  VH1 

.  XI  , 

DENS2 ,  ZL2  ) 

0149 

Q1  - 

FI  GE.  0. 

0150 

X  3  - 

-2.  *  SMALL 

VH2  -  VH2  +  VS  (  I  ,  K  +  1  ) 

CONTINUE 

VH1  -  VH1  /  LAY 

VH2  -  VH2  /  LAY 

CALCULATE  DENSITIES  AT  LIMITS  .... 

DENS2  -  DENINT  (  ZUP  (  K  )  ) 

DENS1  -  DENINT  (  ZDN  (  K  +  1  )  ) 

LIMIT  VARIABLES  REASSIGNED  .... 

ZL2  -  ZUP  (  K  ) 

ZL1  -  ZDN  (  K  +  1  ) 

CHECK  FOR  INTERFERENCE  FROM  SURFACE  OR  BOTTOM  .... 

QSTLIM  -  FSHIFT  (  VH1 ,  DEPTH,  DENS2 ,  ZL2  )  .GE.  0. 
QSBLIM  -  FSHIFT  (  VH2 ,  0.,  DENS1 ,  ZL1  )  .GE.  0. 

IF  (  .NOT.  QSTLIM  )  GO  TO  125 

SOLVE  FOR  THE  SHIFTED  LIMIT  .... 

CHECK  FIRST  FOR  DENSITY  DIFFERENCE 
BETWEEN  THE  PORT  AND  THE  SURFACE  .... 

IF  (  ABS  (  DEN  (  I SURF  )  -  DENINT  (  PHGT  (  K  )  )  )  .GT. 
&  TINY  )  GO  TO  125 

ZUP  (  K  )  -  DEPTH 
GO  TO  175 
CONTINUE 
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SHIFT 

0151 

k 

0152 

*  .  .  .  . 

FUNCTION  SIGN  MUST  BE  POSITIVE  AT  THE  ORIGINAL  LIMIT  AND 

0153 

* 

NEGATIVE  AT  THE  NEW  LIMIT,  ELSE  CHOOSE  NEW  LIMIT,  XI, 

0154 

* 

2  TIMES  GREATER  .... 

0155 

* 

0156 

IF  (  Q1  .OR.  .NOT.  Q2  )  GO  TO  130 

0157 

ASSIGN  170  TO  XXX 

0158 

GO  TO  140 

0159 

135 

CONTINUE 

0160 

* 

0161 

* .  .  .  . 

IF  THEORETICAL  SHIFTED  UPPER  LIMIT  IS  NOT  FOUND,  IT  IS 

0162 

* 

ASSIGNED  TO  2  *  DEPTH  AND  NOTED  IN  THE  OUTPUT  .... 

0163 

k 

0164 

IF  (  QPRINT  )  WRITE  (  KFILE ,  500  ) 

0165 

Q PRINT-  .FALSE. 

0166 

WRITE  (  KFILE,  505  )  K 

0167 

WRITE  (  KFILE,  510  ) 

0168 

X3  -  2  *  DEPTH 

0169 

GO  TO  170 

0170 

140 

CONTINUE 

0171 

* 

0172 

* .  .  .  . 

INITIATE  ITERATION  PROCESS  .... 

0173 

* 

0174 

DO  160  I  -  1,  MAX 

0175 

* 

0176 

ESTABLISH  A  THIRD  POINT  BETWEEN  TWO  EXISTING  POINTS  .... 

0177 

* 

0178 

X4  -  X3 

0179 

X3  -  (  XI  +  X2  )  /  2. 

0180 

* 

0181 

★  t 

CALCULATE  FUNCTION  SIGN  AT  NEW  ELEVATION  .... 

0182 

* 

0183 

F3  =  FSHIFT  (  VH1 ,  X3,  DENS2 ,  ZL2  ) 

0184 

k 

0185 

*  .  .  .  . 

IF  NEW  POINT  IS  THE  SAME  AS  THE  PREVIOUS  POINT,  THEN  SEARCH 

0186 

* 

IS  COMPLETE  .... 

0187 

* 

0188 

IF  (  ABS  (  X4  -  X3  )  .LT.  SMALL  )  GO  TO  XXX,  (  170,  200 

0189 

* 

0190 

*  .  .  .  . 

USE  AS  NEW  SEARCH  LIMITS  THE  MOST  RECENTLY  COMPUTED  POINT 

0191 

* 

AND  THE  REMAINING  POINT  OF  OPPOSITE  SIGN  .... 

0192 

k 

0193 

IF  (  FI  *  F3  .GT.  0.  )  GO  TO  150 

0194 

X2  -  X3 

0195 

F2  -  F3 

0196 

GO  TO  160 

0197 

150 

CONTINUE 

0198 

XI  -  X3 

0199 

FI  -  F3 

0200 

160 

CONTINUE 
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SHIFT 

0201  * 

0202  *.... 

0203  * 

0204 

0205  170 

0206  * 

0207 

0208  * 

0209 

0210  175 

0211 

0212  * 

0213 

0214  * 

0215 
0216 
0217 
0218 

0219  180 

0220  * 


0221 

* . 

DETERMINE  FUNCTION  SIGN  AT  SEARCH  LIMITS  (1)  BOTTOM 

0222 

* 

(2)  ORIGINAL  LOWER  LIMIT  OF  UPPER  PROFILE  .... 

0223 

* 

0224 

XI  -  -  DEPTH  /  2. 

0225 

KOUNT  -  0 

0226 

185 

CONTINUE 

0227 

KOUNT  -  KOUNT  +  1 

0228 

IF  (  KOUNT  . GE .  5  )  GO  TO  190 

0229 

XI  -  XI  *  2.0 

0230 

FI  -  FSHIFT  (  VH2 ,  XI,  DENS1 ,  ZL1  ) 

0231 

Q1  -  FI  .GE.  0. 

0232 

X2  -  ZDN(K  +  1) 

0233 

F2  -  FSHIFT  (  VH2 ,  X2 ,  DENS1 ,  ZL1  ) 

0234 

Q2  -  F2  .GT.  0. 

0235 

* 

0236 

* . 

FUNCTION  VALUE  MUST  BE  NEGATIVE  AT  BOTTOM  AND  POSITIVE 

0237 

* 

ORIGINAL  LIMIT  .... 

0238 

* 

0239 

IF  (  Q1  .OR.  .NOT.  Q2  )  GO  TO  185 

0240 

* 

0241 

* . 

IF  LIMIT  IS  IN  POOL,  USE  PRIOR  SEARCH  PROCEDURE  .... 

0242 

* 

0243 

ASSIGN  200  TO  XXX 

0244 

GO  TO  140 

0245 

190 

CONTINUE 

0246 

* 

0247 

* , 

IF  LIMIT  IS  OUTSIDE  THE  POOL,  ASSIGN  IT  TO  DEPTH  .... 

0248 

* 

0249 

WRITE  (  KFILE,  520  ) 

0250 

X3  -  -  DEPTH 

CONVERGENCE  HAS  NOT  BEEN  REACHED  .... 

CALL  ERROR  (  1800,  SUBR,  XDUMY ,  XDUMY1 ,  XDUMY2 ,  XDUMY3  ) 
CONTINUE 

SET  UP  SHIFTED  UPPER  LIMIT  OF  LOWER  PROFILE  .... 

ZUP  (  K  )  -  X3 
CONTINUE 

IF  (  .NOT.  QSBLIM  )  GO  TO  180 

CHECK  DENSITY  STRUCTURE  FOR  LOWER  LIMIT  OF  UPPER  PORT  .... 

IF  (  ABS  (  DEN  (  1  )  -  DENINT  (  PHGT  (  K  +  1  )  )  ) 

&  .GT.  TINY  )  GO  TO  180 

ZDN (  K  +  1  )  -  0. 

GO  TO  210 
CONTINUE 
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SHIFT 

0251 

200 

CONTINUE 

0252 

★ 

0253 

★  # 

SET  SHIFTED  LOWER  LIMIT  OF  UPPER  PROFILE 

0254 

★ 

0255 

ZDN  (  K  +  1  )  -  X3 

0256 

210 

CONTINUE 

0257 

* 

0258 

★ . 

COMPUTE  NEW  NORMALIZED  VELOCITIES  AND  LAY1 

0259 

★ 

LOWER  HALF  OF  PROFILE  .... 

0260 

* 

0261 

★ . 

ASSIGN  LIMITS  TO  VARIABLES  .... 

0262 

★ 

0263 

HGTLOW  -  ZDN  (  K  ) 

0264 

LOWLIM  -  LAYER  (  HGTLOW  ) 

0265 

HGTTOP  -  ZUP  (  K  ) 

0266 

TOPLIM  -  LAYER  (  HGTTOP  ) 

0267 

HGTPRT  -  PHGT  (  K  ) 

0268 

FLORAT  -  FLOW  (  K  ) 

0269 

QBLIM  -  ZDN  (  K  )  . LE .  0 . 

0270 

IF  (  QSTLIM  )  QTLIM  -  .TRUE. 

02  '’l 

★ 

0272 

*  # 

CALL  VPORT  TO  RECALCULATE  VELOCITIES 

0273 

★ 

0274 

QSHIFT  -  .TRUE. 

0275 

CALL  VPORT 

0276 

★ 

0277 

QSHIFT  -  .FALSE. 

0278 

DO  220  I  -  1,  I SURF 

0279 

VS  (  I  ,  K  )  -  V  (  I  ) 

0280 

220 

CONTINUE 

0281 

★ 

0282 

★ 

COMPUTE  NEW  NORMALIZED  VELOCITIES  AND  LAY 

0283 

* 

THE  UPPER  HALF  OF  THE  PROFILE  .... 

0284 

★ 

0285 

* . 

ASSIGN  LIMITS  TO  VARIABLES  .... 

0286 

* 

0287 

HGTLOW  -  ZDN  (  K  +  1  ) 

0288 

LOWLIM  -  LAYER  (  HGTLOW  ) 

0289 

HGTTOP  -  ZUP  (  K  +  1  ) 

0290 

TOPLIM  -  LAYER  (  HGTTOP  ) 

0291 

IF  (  QWEIR  .AND.  K  . EQ .  NOUTS  -  1  )  GO 

0292 

HGTPRT  -  PHGT  (  K  +  1  ) 

0293 

FLORAT  -  FLOW  (  K  +  1  ) 

0294 

QTLIM  -  ZUP  (  K  +  1  )  GE.  DEPTH 

0295 

IF  (  QSBLIM  )  QBLIM  -  TRUE. 

0296 

QSHIFT  -  TRUE. 

0297 

★ 

0298 

★ 

CALL  VPORT  TO  RECALCULATE  VELOCITIES 

0299 

* 

0300 

CALL  VPORT 

E79 
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SHIFT 

0301 

★ 

0302 

QSHIFT  -  .FALSE. 

0303 

GO  TO  240 

0304 

230 

CONTINUE 

0303 

* 

0306 

* . 

.  ASSIGN  WEIR  INFO  TO  VARIABLES  _ 

0307 

* 

0308 

CREST  -  WRHGT 

0309 

LENGTH  -  WRLNG 

0310 

FLO RAT  -  UR FLOW 

0311 

QTLIM  -  .TRUE. 

0312 

IF  (  QSBLIM  )  QBLIM  -  .TRUE. 

0313 

QSHIFT  -  .TRUE. 

0314 

* 

0315 

.  CALL  VWEIR  TO  CALCULATE  VELOCITIES  .... 

0316 

★ 

0317 

* .  .  . 

.  CALL  VWEIR  .... 

0318 

* 

0319 

QSHIFT  -  .FALSE. 

0320 

240 

CONTINUE 

0321 

DO  250  I  -  1,  I SURF 

0322 

VS  (I  ,K+1)-V(I) 

0323 

250 

CONTINUE 

0324 

260 

CONTINUE 

0325 

500 

FORMAT  (  1H1  ) 

0326 

510 

FORMAT  (  //  ,  5X.  29H***  THEORITICAL  SHIFTED  UPPER, 

0327 

6.  43H  LIMIT  NOT  FOUND.  ASSIGNED  TO  2  *  DEPTH  ***) 

0328 

520 

FORMAT  (  //  ,  5X ,  29H***  THEORETICAL  SHIFTED  LOWER, 

0329 

(x  41H  LIMIT  NOT  FOUND.  ASSIGNED  TO  -  DEPTH  ***) 

0330 

505 

FORMAT  (  //  ,  5X ,  35H***  LOWER  PORT  FOR  THIS  CASE  IS  NO., 

0331 

&  15,  5H  ***) 

0332 

RETURN 

0333 

END 
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VENTING 

0001 

SUBROUTINE  VENTING 

0002 

*************************************************************** 

0003 

* 

* 

0004 

* 

SUBROUTINE  VENTING  * 

0005 

* 

* 

0006 

0007 

* 

0008 

*.  .  . 

PREDICTS  RESEASE  D.O.  BASED  ON  A  MAXIMUM  30%  REDUCTION 

0009 

* 

IN  D.O.  DEFICIT  _ 

0010 

* 

0011 

COMMON  /  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 

0012 

COMMON  /  SS  /  WTHDRW  (100),  DENOUT,  TEMOUT,  QALOUT  (4) 

0013 

COMMON  /  TT  /  QVENT ,  QAERA,  QTWFUN,  TWEL 

0014 

* 

0015 

LOGICAL  QVENT,  QAERA,  QTWFUN 

0016 

* 

0017 

* .  .  . 

D.O.  SATURATION  .... 

0018 

* 

0019 

DOSAT  (  X  )  -  1  /  (  0.00209  *  X  +  0.06719  ) 

0020 

* 

0021 

* .  .  . 

ALTITUDE  CORRECTION  FACTOR  .... 

0022 

* 

0023 

BARO(  X  )  -  1.0  -  3.224  E-5  *  X 

0024 

* 

0025 

*.  .  . 

OXYGEN  SATURATION  CONCENTRATION  ADJUSTED  FOR  ALTITUDE  . . 

0026 

* 

0027 

ALT  -  BOTTOM 

0028 

CSAT  -  DOSAT  (  TEMOUT  )  *  BARO  (  ALT  ) 

0029 

* 

0030 

*. 

DEFICIT  CALCULATIONS;  DI  -  INITIAL  DEFICIT, 

0031 

* 

DF  -  FINAL  DEFICIT  .... 

0032 

* 

0033 

DI  -  CSAT  -  QALOUT  (  1  ) 

0034 

DF  -  0.70  *  DI 

0035 

QALOUT  (  1  )  -  CSAT  -  DF 

0036 

RETURN 

0037 

END 
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VPORT 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 


SUBROUTINE  VPORT 

*  * 

*  SUBROUTINE  VPORT  * 

*  * 
***********************************************-****************** 


* 


*....  CALCULATE  WITHDRAWAL  LIMITS  AND  VELOCITY  PROFILE  FOR 

*  AN  ORIFICE  .... 

* 


* 


& 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/  AA  /  QMETR ,  NSETS,  G,  HEADING  (18),  TITLE  (18) 

/  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 
/  DD  /  WTHETA  (5),  WANGLE 

/  II  /  NUMD ,  DEN  (100),  YD  (100),  QDEN ,  DENPRT 
/  LL  /  ISURF ,  HGT  (100),  DEPTH,  Y  (100) 

/  MM  /  SUMOUT,  VEL  (100),  FLORAT 
/  NN  /  HGTPRT,  VDIM,  QTLIM,  QBLIM,  QSINK1, 

QSINK2 ,  QSHIFT 
/  00  /  LENGTH,  CREST,  HDIM 

/  PP  /  LOWLIM,  TOPLIM,  HGTLOW ,  HGTTOP ,  V  (100),  VM 


LOGICAL  QBLIM,  QTLIM,  QMETR,  QSINK1,  QSINK2 ,  QSHIFT 

* 


INTEGER  XXX  ,  TOPLIM 

* 

CHARACTERS  XDUMY ,  XDUMY1 ,  XDUMY2 ,  XDUMY3 
CHARACTERS  SUBR 

* 

DATA  MAX ,  VMAX ,  TINY  /  10,  1.,  1.0E-08  / 

DATA  XDUMY,  XDUMY 1 ,  XDUMY 2 ,  XDUMY 3  /  4  *  '0  '  / 

DATA  SUBR  /  'VPORT'  / 

* 


*....  FUNCTION  STATEMENTS  TO  SOLVE  FOR  ORIFICE  WITHDRAWAL  LIMITS 
*  FOR  INTERMEDIATE  FLOW  CONDITIONS  .... 


LAYER  (  X  )  =  1.  +  X  /  DELZ 

ZEE  (  X  )  -  ABS  (  HGTPRT  -  X  ) 

FROUD  (  X  )  -  SQRT  (  G  *  ABS  (  1 .  -  DENINT  (  X  ) 

&  /  DENPRT  )  ) 


*  _  COMPUTE  THE  DIFFERENCE  BETWEEN  THE  FLOW  'ENERGY'  AND  THE 

*  ENERGY  EXPENDED  BASED  ON  BOHAN  AND  GRACE  (1969),  MODIFIED 

*  TO  INCLUDE  WITHDRAWAL  ANGLE  CONCEPTS  .... 

* 

QBNG  (  X  )  -  FLORAT  /  PHIFRAC  -  C2  *  FROUD  (  X  ) 

&  *  ZEE  (  X  )  +*  2.5 

* 


*....  FUNCTION  STATEMENTS  TO  SOLVE  FOR  THE  UNBOUNDED  WITHDRAWAL 

*  LIMIT  WHEN  THERE  IS  BOTTOM  OR  SURFACE  INTERFERENCE  .... 

* 
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VPORT 


DPRIME  (  X  )  -  ABS  (  BONLIM  -  X  ) 

BDRATIO  (  X  )  -  SMALLB  /  DPRIME  (  X  )  / 

&  (  1  -  SMALLB  /  DPRIME  (  X  )  ) 

FROUDE  (  X  )  =  SQRT  (  G  *  ABS  (  1.  -  DENINT  (  X  ) 

&  /  DENPRT  )  /  ZEE  (  X  )  ) 

CHI  (X)  -  1 .  /  2 .  *  (  1.  +  BDRATIO  (  X  )  ) 

PHI  (  X  )  -  1.  /  2.  *(1+1/  PI 

&  *  SIN  (  BDRATIO  (  X  )  *  PI  )  + 

&  BDRATIO  (  X  )  ) 

.  COMPUTE  THE  DIFFERENCE  BETWEEN  THE  FLOW  'ENERGY'  AND  THE 
'ENERGY'  EXPENDED  BASED  ON  SMITH,  ET  AL  (1985),  EQN  36  . . . 

QSMITH  (  X  )  =  FLORAT  -  C2  *  FROUDE  (  X  )  *  PHI  (  X  ) 
&  /  (  2.0  *  CHI  (  X  )  )  **  3 

&  *  DPRIME  (  X  )  **  3 

.  TOLERANCE,  10%  OF  LAYER  THICKNESS  _ 


SMALL 


10  *  DELZ 


INITIALIZE  LOGICAL  VARIABLES  .... 

QSINK1  =  .TRUE. 

QSINK2  -  .TRUE. 

QSHIFT  -  .FALSE. 

SET  THE  VALUE  OF  THE  ANGLE  OF  WITHDRAWAL  COEFFICIENT 
FOR  THE  BOUNDARY  INTERFERENCE  EQUATION  .... 

CHECK  TO  SEE  IF  ENTERING  FROM  SUBROUTINE  SHIFT  .... 

IF  (  QSHIFT  )  GO  TO  185 
PI  -  3.14159 

C2  =  WANGLE  /  PI 

PHIFRAC  -  1.0 

CHECK  FOR  BOUNDARY  INTERFERENCE  FROM  SURFACE  OR  BOTTOM 
USING  INTERMEDIATE  FLOW  EQUATION  .... 

DENBOT  =  DENINT  (0.  ) 

DENUPP  -  DENINT  (  DEPTH  ) 

IF  (  HGTPRT  . GT .  0.0  )  THEN 

QBLIM  -  QBNG  (0.  )  .CE.  0. 

ELSE 

QBLIM  -  .TRUE. 

ENDIF 

QTLIM  -  QBNG  (  DEPTH  )  . GE .  0. 


DIRECT  COMPUTATIONS  BASED  ON  INTERFERENCE 
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VPORT 


0101 

* 

CHARACTERISTICS  .... 

0102 

* 

0103 

IF  (  QTLIM  .AND.  QBLIM  )  GO  TO  540 

0104 

IF  (  QTLIM  )  GO  TO  500 

0105 

IF  (  QBLIM  )  GO  TO  510 

0106 

IF  (  .NOT.  QTLIM  .AND.  .NOT.  QBLIM  )  GO  TO  540 

0107 

500 

CONTINUE 

0108 

* 

0109 

* .  .  .  . 

IF  ONLY  ONE  BOUNDARY  EXPERIENCES  INTERFERENCE,  FIND  THE 

0110 

* 

HEIGHT  OF  WITHDRAWAL  USING  SMITH,  1987  _ 

0111 

* 

0112 

DETERMINE  THE  HEIGHT  OF  THE  TRUNCATED  PORTION,  THE  BOUNDARY 

0113 

* 

LIMIT,  THE  SEARCH  INTERVAL  LIMITS,  AND  THE  FUNCTION  SIGN  AT 

0114 

* 

THE  SEARCH  LIMITS  .... 

0115 

* 

0116 

SURFACE  INTERFERENCE  .... 

0117 

* 

0118 

SMALLB  =  DEPTH  -  HGTPRT 

0119 

DENLIM  -  DENUPP 

0120 

BONLIM  -  DEPTH 

0121 

XI  -  0. 

0122 

X2  -  DEPTH 

0123 

HI  -  QSMITH  (  XI  ) 

0124 

GO  TO  530 

0125 

510 

CONTINUE 

0126 

* 

0127 

BOTTOM  INTERFERENCE  .... 

0128 

* 

0129 

SMALLB  -  HGTPRT 

0130 

DENLIM  -  DENBOT 

0131 

BONLIM  -  0. 

0132 

XI  -  0. 

0133 

X2  -  DEPTH 

0134 

HI  -  1. 

0135 

530 

CONTINUE 

0136 

* 

0137 

FIND  THE  LIMIT  USING  A  HALF- INTERVAL  SEARCH  _ 

0138 

* 

0139 

INITIALIZE  X3  .... 

0140 

* 

0141 

X3  -  SMALL 

0142 

* 

0143 

*.  .  .  . 

BEGIN  ITERATION  .... 

0144 

* 

0145 

DO  560  I  -  1,  2  *  MAX 

0146 

X4  -  X3 

0147 

* 

0148 

ESTABLISH  A  THIRD  POINT  BETWEEN  TWO  EXISTING  POINTS  .... 

0149 

* 

0150 

X3  -  (  XI  +  X2  )  /  2.0 
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0151 

* 

0152 

*.  .  .  . 

CALCULATE  FUNCTION  SIGN  AT  NEW  POINT  .... 

0153 

* 

0154 

H3  -  QSMITH  (  X3  ) 

0155 

ZONED  -  ABS  (  BONLIM  -  X3  ) 

0156 

* 

0157 

IF  NEW  POINT  IS  SAME  AS  PREVIOUS  POINT  (WITHIN  TOLERANCE) 

0158 

* 

ITERATION  IS  COMPLETE  .... 

0159 

* 

0160 

IF  (  ABS  (  X4  -  X3  )  .LT.  SMALL  )  GO  TO  570 

0161 

* 

0162 

USE  AS  NEW  SEARCH  LIMITS  THE  MOST  RECENT  POINT  AND  THE 

0163 

* 

REMAINING  POINT  OF  OPPOSITE  FUNCTION  SIGN  .... 

0164 

* 

0165 

IF  (  HI  *  H3  .LT.  0.  )  GO  TO  535 

0166 

XI  -  X3 

0167 

HI  -  H3 

0168 

GO  TO  560 

0169 

535 

CONTINUE 

0170 

X2  -  X3 

0171 

560 

CONTINUE 

0172 

* 

0173 

CONVERGENCE  WAS  NOT  REACHED  .... 

0174 

* 

0175 

CALL  ERROR  (  1500,  SUBR,  XDUMY ,  XDUMY1 ,  XDUMY2 ,  XDUMY3 

0176 

570 

CONTINUE 

0177 

PHIFRAC  -  PHI  (  X3  ) 

0178 

* 

0179 

* .  .  .  . 

CALCULATE  WITHDRAWAL  LIMIT  .... 

0180 

* 

0181 

IF  (  QTLIM  .AND.  .NOT.  QBLIM  )  HGTLOW  =  DEPTH  -  ZONED 

0182 

IF  (  QBLIM  .AND.  .NOT.  QTLIM  )  HGTTOP  -  ZONED 

0183 

540 

CONTINUE 

0184 

* 

0185 

USAGE  FOR  THE  BOHAN  AND  GRACE  EQUATION 

0186 

* 

1.  NO  BOUNDARY  INTERFERENCE 

0187 

* 

2.  BOTH  BOUNDARIES  INTERFERE  WITH  WITHDRAWAL  ZONE 

0188 

* 

3.  SINGLE  BOUNDARY  INTERFERENCE.  THEORETICAL  LIMIT 

0189 

* 

OF  ONE  INTERFERED  WITH  MUST  BE  DETERMINED 

0190 

* 

(FREE  LIMIT  IS  DETERMINED  ABOVE  WITH  SMITH  EQUATION)  . 

0191 

* 

0192 

IF  (  QTLIM  .AND.  .NOT.  QBLIM  )  GO  TO  150 

0193 

* 

0194 

EMBARK  ON  DETERMINATION  OF  LOWER  WITHDRAWAL  LIMIT  .... 

0195 

* 

0196 

* 

0197 

IF  LOWER  LIMIT  IS  WITHIN  THE  POOL  THEN  FIND  IT  WITH  A 

0198 

* 

HALF- INTERVAL  SEARCH  .... 

0199 

* 

0200 

INITIAL  SEARCH  LIMITS  ARE  XI  -0  AND  X2  -  HGTPRT  .... 
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0201 

* 

0202 

XI  -  0.0 

0203 

* 

0204 

* , 

IF  BOTTOM  BOUNDARY  INTERFERENCE  EXISTS  (LOWER  LIMIT 

OUTSIDE 

0205 

* 

POOL) ,  THEN  XI  -  -  DEPTH  _ 

0206 

* 

0207 

IF  (  QBLIM  )  XI  -  -  DEPTH 

0208 

FI  -  QBNG  (  XI  ) 

0209 

DENLIM  -  DENBOT 

0210 

X2  -  HGTPRT 

0211 

X3  -  -2.  *  SMALL 

0212 

ASSIGN  140  TO  XXX 

0213 

110 

CONTINUE 

0214 

* 

0215 

*.  .  .  . 

.  INITIATE  ITERATION  PROCESS  _ 

0216 

* 

0217 

DO  130  I  -  1,  MAX 

0218 

* 

0219 

.  ESTABLISH  A  THIRD  POINT  BETWEEN  THE  TWO  EXISTING  POINTS  _ 

0220 

* 

0221 

X4  =  X3 

0222 

X3  -  (  XI  +  X2  )  /  2. 

0223 

* 

0224 

CALCULATE  FUNCTION  SIGN  AT  NEW  ELEVATION  .... 

0225 

* 

0226 

DENLIM  -  DENINT  (  X3  ) 

0227 

IF  (  DENLIM  .EQ.  DENPRT  )  GO  TO  XXX 

0228 

F3  -  QBNG  (  X3  ) 

0229 

* 

0230 

IF  NEW  POINT  IS  SAME  AS  PREVIOUS  POINT  (WITHIN  TOLERANCE) 

0231 

* 

THEN  SEARCH  IS  COMPLETE  .... 

0232 

* 

0233 

IF  (  ABS  (  X4  -  X3  )  . LT .  SMALL  ) 

0234 

&  GO  TO  XXX,  (  140,  170  ) 

0235 

* 

0236 

* .  .  .  . 

USE  AS  NEW  SEARCH  LIMITS  THE  MOST  RECENTLY  COMPUTED 

POINT  AND 

0237 

* 

THE  REMAINING  POINT  OF  OPPOSITE  SIGN 

0238 

* 

0239 

IF  (  FI  *  F3  .GT.  0.  )  GO  TO  120 

0240 

X2  -  X3 

0241 

GO  TO  130 

0242 

120 

CONTINUE 

0243 

XI  -  X3 

0244 

FI  -  F3 

0245 

130 

CONTINUE 

0246 

* 

0247 

,  CONVERGENCE  HAS  NOT  BEEN  REACHED  .... 

0248 

* 

0249 

CALL  ERROR  (  1510,  SUBR ,  XDUMY ,  XDUMY1 ,  XDUMY2 , 

XDUMY 3  ) 

0250 

140 

CONTINUE 
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0251 

* 

0252 

* .  .  .  . 

SET  LOWER  LIMIT  ELEVATION  .... 

0253 

* 

0254 

HGTL0W  -  X3 

0255 

150 

CONTINUE 

0256 

IF  (  QBLIM  .AND.  .NOT.  QTLIM  )  GO  TO  180 

0257 

* 

0258 

APPLY  SAME  PROCEDURE  FOR  DETERMINING  UPPER  WITHDRAWAL  LIMIT 

0259 

* 

FOR  ORIFICE 

0260 

* 

0261 

* .  .  .  . 

DETERMINE  ELEVATION,  LAYER  AND  FUNCTION  SIGN  AT  SEARCH 

0262 

* 

LIMITS.  IF  NIETHER  LIMIT  EXPERIENCES  INTERFERENCE  THE  THE 

0263 

* 

INITIAL  SEARCH  LIMITS  ARE  XI  -  HGTPRT  AND  X2  -  DEPTH. 

0264 

* 

HOWEVER,  IF  SURFACE  INTERFERENCE  EXISTS  (  UPPER  LIMIT  OUTSIDE 

0265 

* 

POOL  ) ,  THEN  X2  -  2 .  *  DEPTH  .... 

0266 

* 

0267 

XI  -  HGTPRT 

0268 

X2  -  DEPTH 

0269 

IF  (  QTLIM  )  X2  -  2  *  DEPTH 

0270 

FI  -  QBNG  (  XI  ) 

0271 

* 

0272 

USE  THE  PRIOR  SEARCH  PROCEDURE  .... 

0273 

* 

02  74 

ASSIGN  170  TO  XXX 

0275 

DENLIM  -  DENUPP 

0276 

GO  TO  110 

0277 

170 

CONTINUE 

0278 

HGTTOP  -  X3 

0279 

180 

CONTINUE 

0280 

* 

0281 

CALCULATE  LOCATION  OF  MAXIMUM  VELOCITY  AND  THICKNESS  OF 

0282 

* 

WITHDRAWAL  LIMITS  .... 

0283 

* 

0284 

185 

CONTINUE 

0285 

ZONE  -  HGTTOP  -  HGTLOW 

0286 

ZTOP  -  HGTTOP  -  HGTPRT 

0287 

ZLOW  -  HGTPRT  -  HGTLOW 

0288 

* 

0289 

* .  .  .  . 

BASED  ON  BOHAN  AND  GRACE 

0290 

* 

0291 

YVMAX  -  ZONE  *  (  SIN  (  1.57  *  ZLOW  /  ZONE  )  )  **  2 

0292 

* 

YVMAX  -  HGTPRT 

0293 

* 

0294 

* .  .  .  . 

HEIGHT  ABOVE  BOTTOM.  HARDWIRE  TO  PREVENT  MAX  VELOCITY 

0295 

* 

OUTSIDE  THE  POOL  (HOWINGTON  9-25-91)  _ 

0296 

* 

0297 

XVMAX  =  YVMAX  +  HGTLOW 

0298 

IF  (  XVMAX  .LT.  0.0  )  XVMAX  -  0.0 

0299 

IF  (  XVMAX  .GT.  DEPTH  )  XVMAX  -  DEPTH 

0300 

LVMAX  -  LAYER  (  XVMAX  ) 
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0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 


* 

.  MAXIMUM  VELOCITY  OUTSIDE  THE  POOL 

* 


IF  (  (  XVMAX  .  LT.  0.  )  OR.  (  XVMAX  . CT .  DEPTH  )  ) 

&  CALL  ERROR  (  1520  ,  SUBR ,  XDUMY ,  XDUMY1 ,  XDUMY? , 

&  XDUMY3  ) 

* 

*. . . .  ASSICN  DENSITIES  AT  LIMITS  AND  MAXIMUM  VELOCITY 
* 

DVMAX  -  DEN  I NT  (  XVMAX  ) 

DENLOW  -  DEN  I NT  (  HCTLOU  ) 

DENTOP  -  DENINT  (  HCTTOP  ) 


.  WITHDRAWAL  LAYER  LIMITS 

it 


* 

★ 

★ 


190 

* 


I F  (  HGTLOW  . LT . 
IF  (  HGTLOW  CE. 
IF  (  HCTTOP  CE. 
I F  (  HCTTOP  . LT . 


0.  )  LOWLIM  - 
0.  )  LOWLIM  - 
DEPTH  )  TOPLIM  - 
DEPTH  )  TOPLIM  - 


LAYER  (0.  ) 

LAYER  (  HCTLOW  ) 
I  SURF 

LAYER  (  HCTTOP  ) 


ZERO  THE  VELOCITY  PROFILE  FOR  THE  CURRENT  PORT 


DO  190  I  -  1  ,  I  SURF 
V  (  I  )  -  0. 
CONTINUE 


*....  IF  LOWER  WITHDRAWAL  LAYERS  ARE  OF  CONSTANT  DENSITY  THEN 

*  ASSICN  CONSTANT  VELOCITY  TO  EACH  I  AYER  ... 

* 


DENDIF  -  DENLOW  -  DVMAX 
IF  (  DENDIF  .CT  0.  )  CO  TO  710 
DO  200  I  -  LOWLIM.  LVMAX 
V  (  I  )  -  VMAX 
200  CONTINUE 

CO  TO  240 
210  CONTINUE 

* 

*....  CALCULATE  VELOCITY  PROFILE  FROM  I  AY  ER  OF  MAXIMUM  VELOCITY 

*  TO  LOWER  LIMIT  ... 

* 

IF  (  LOWLIM  .  F.Q.  LVMAX  )  CO  TO  240 
DO  230  I  -  LOWLIM,  LVMAX 

Y1  -  DELZ  *  (  LVMAX  -  I  ) 

DF.LDEN  -  DEN  (  I  )  -  DVMAX 

* 

*. . . .  BASED  ON  BOHAN  AND  CRACK  ... 

* 

RATIO  -  Y1  *  DF.LDEN  /  (  ZI.OW  *  DENDIF  ) 

RATIO  -  AMIN1  (  1 . ,  RATIO  ) 

V ( I )  -  VMAX  *  (  1.  -  RATIO  )  **  2.0 
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0351 

230 

CONTINUE 

0352 

240 

CONTINUE 

0353 

* 

0354 

* 

IF  UPPER  WITHDRAWAL  LAYERS  ARE  OF  CONSTANT  DENSITY  THEN 

0355 

* 

ASSIGN  CONSTANT  VELOCITY  TO  EACH  LAYER  .... 

0356 

* 

0357 

DENDIF  -  DVMAX  -  DENTOP 

0358 

IF  (  DENDIF  ,GT.  0.  )  GO  TO  260 

0359 

DO  250  I  -  LVMAX ,  TOPLIM 

0360 

V  (  I  )  -  VMAX 

0361 

250 

CONTINUE 

0362 

GO  TO  290 

0363 

260 

CONTINUE 

0364 

* 

0365 

* . 

DETERMINE  VELOCITY  PROFILE  FROM  LAYER  OF  MAXIMUM  VELOCITY 

0366 

* 

TO  UPPER  LIMIT  .... 

0367 

* 

0368 

IF  (  LVMAX  . EQ .  TOPLIM  )  GO  TO  290 

0369 

DO  280  I  -  LVMAX,  TOPLIM 

0370 

Y1  -  DELZ  *  (  I  -  LVMAX  ) 

03  71 

DELDEN  -  DVMAX  -  DEN  (  I  ) 

0372 

* 

0373 

* . 

BASED  ON  BOHAN  AND  GRACE  .... 

0374 

* 

0375 

RATIO  -  Y1  *  DELDEN  /  (  ZTOP  *  DENDIF  ) 

0376 

RATIO  -  AMIN1  (  1 . ,  RATIO  ) 

03  7  7 

V(I)  -  VMAX  *  (  1.  -  RATIO  )  **  2.0 

0378 

280 

CONTINUE 

0379 

290 

CONTINUE 

0380 

* 

0381 

* . 

CONVERT  NORMALIZED  VELOCITIES  TO  FLOW  RATES,  I.E.,  DETERM  1 N! 

0382 

* 

THE  WITHDRAWAL  FROM  EACH  LAYER 

0383 

* 

0384 

SUM  -  0.0 

0385 

DO  310  I  -  LOWLIM,  TOPLIM 

0386 

SUM  -  SUM  +  V  (  I  )  *  HGT  (  I  ) 

0387 

310 

CONTINUE 

0388 

VM  -  FLORAT  /  SUM 

0389 

DO  320  I  -  LOWLIM,  TOPLIM 

0390 

V  (  I  )  -  V  (  I  )  *  VM 

0391 

320 

CONTINUE 

0392 

* 

0393 

* . 

CHECK  FOR  POINT  SINK  DESCRIPTION  .... 

0394 

* 

0395 

VDIM2  -  VDIM  /  2 . 

0396 

PRTTOP  -  HGTPRT  t  VDIM2 

0397 

VD2  -  VDIM2 

0398 

IF  (  PRTTOP  . GT .  DEPTH  )  VD2  -  DEPTH  -  HGTPRT 

0399 

IF  (  PRTTOP  .GT.  DEPTH  )  PRTTOP  -  DEPTH 

0400 

PRTBOT  -  HGTPRT  -  VDIM2 
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0401 

0402 

0403 

0404 

0403 

0406 

0407 


0414 

0413 

0416 


★ 

* 

* 


IF  (  PRTBOT  .  LT. 
DRPTOP  -  DENPRT 
DRPBOT  -  DEN  I  NT 

DRTLIM  -  DENPRT 
DRBLIM  -  DENLOW 


0 .  . AND 

-  DEN  I  NT 
(  PRTBOT 

-  DENTOP 

-  DENPRT 


PRTBOT  CT 
PRTTOP  ) 

-  DENPRT 


1  )  PRTBOT  -  0 


0408 

IF 

( 

DRPBOT 

LT 

TINY 

) 

DRPBOT  -  TINY 

0409 

IF 

( 

DRPTOP 

LT 

TINY 

) 

DRPTOP  -  TINY 

0410 

IF 

( 

DRBLIM 

LT 

TINY 

) 

DRBLIM  -  TINY 

0411 

IF 

( 

DRTLIM 

LT 

T I  NY 

> 

DRTLIM  -  TINY 

0412 

IF 

( 

VDIM2 

LT 

TINY 

) 

VDIM2  -  TINY 

0413 

IF 

( 

VD2 

LT 

TINY 

VD2  -  TINY 

EMPIRICAL  EQUATIONS  FOR  POINT  SINK  VERIFICATION 


0417 

SINK1  -  (  DRBLIM  ) 

■k 

ZLOW 

/  ( 

DRPBOT 

*  VI)  I  M2 

0418 

SINK2  -  (  DRTLIM  ) 

if 

ZTOP 

/  < 

DRPTOP 

*  VD2  ) 

0419 

QSINK1  -  SINK1 

CT 

5 

0 

0420 

QSINK?  -  SINK? 

CT 

3 

0 

0421 

RETURN 

0422 

END 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
001  / 
0018 
0019 
0020 
0021 
0022 
002  1 
0024 
002  5 
002  6 
002  / 
00  2  8 
0029 
00  30 
00  i  1 
00  5  2 
00  S  3 
00  34 
00  35 
00  36 
00  3  / 
00  38 
00  39 
0040 
004  1 
004  2 
004  3 
0044 
004  5 
0046 
004  / 
004  8 
004  9 
0040 


SUBROUTINE  WEIR 

***************************************************************** 
*  * 

*  SUBROUTINE  VWEIR  * 

*  * 
i(+icicic+ic*1tiCic++iticicit*ic1cicicic*  +  i(icjticic+*+iticic'k'kic'k‘k'k'k'k'k'k'k'k'kic'k'k'k'kicicic1c'kic'k‘k‘k*'k 


★ 

★ , 

.  .  CALCULATE 

with; 

★ 

WEIR  FLOW 

★ 

COMMON 

/ 

AA 

COMMON 

/ 

CC 

COMMON 

/ 

DD 

COMMON 

/ 

GC 

COMMON 

/ 

II 

COMMON 

/ 

LL 

COMMON 

/ 

MM 

COMMON 

& 

/ 

NN 

COMMON 

/ 

00 

COMMON 

/ 

/ 

PP 

QSHIFT 


LOGICAL  QSUB,  QMKTKR ,  QSHIFT.  QBI.IM.  QT1.1M,  Q1  .  Q2 ,  QZ 

REAL  LENGTH 
INTEGER  TOPl.IM 

CHARACTER *4  XDUMY  ,  XDUMY 1 .  XDUMY 2  .  XDUMY3 
CHARA0TER*6  SUBR 


DATA  A ,  B  /  4  3  4  , 

DATA  VMAX .  I TMAX  J  1 

DATA  XDUMY ,  XDUMY1 .  XDUMY2 ,  XDUMY 3  /  4  *  '0 
DATA  SUBR  /  'VWEIR' 


10 


I AYER  (  X  )  -  1  *  X/DELZ 

FUNCTION  STATEMENTS  TO  SOLVE  FOR  LOWER  WITHDRAWAL  LIMITS 


* 

★ 

* 


SIZE  (  X  ) 
RWEIR  <  Z  ) 
R2WE1R  (  Z  ) 


ABS  (  CREST  X  ) 

SQRT  (  Z  *  HEAD  )  *  < 
SQRT  (  Z  ♦  HEAD  ) 


*  Z 


HEAD 


BASED  ON  DORTCH  AND  WIIJIEIMS 

ETJEIR  f  X  )  -  AVGVEL  C  *  RWEIR  (  SIZE  (  X  t 

6  SQRT  (  G  *  ABS  (  1  .  DEN  I  NT  (X) 

4  ♦  I)  *  R2WEIR  (  SIZE(X)  >  * 

6  SQRT  (  c  *  ABS  (.  1  DEN  I  NT  t  X  ) 


WRDEN 


E4  1 


WRDEN  )  ) 
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0051 

★ 

0052 

TOLERANCE,  10%  OF  THE  LAYER  THICKNESS  .... 

0053 

★ 

0054 

SMALL  -  0.10  *  DELZ 

0055 

★ 

0056 

★  t 

CHECK  TO  SEE  IF  ENTERING  WEIR  FROM  SUBROUTINE  SHIP 

0057 

★ 

0058 

IF  (  QSHIFT  )  GO  TO  145 

0059 

IF  (  QSUB  )  GO  TO  85 

0060 

★ 

0061 

* 

CALCULATE  EXPONENT  FOR  USE  UITH  FREE  WEIR  .... 

0062 

* 

0063 

EXPNT  -  A  +  B  *  COEF 

0064 

IF  (  ABS  (  COEF  -  3.00  )  .  LT .  .01  )  EXPNT  -  1.5 

0065 

IF  (  ABS  (  COEF  -  3.33  )  . LT .  .01  )  EXPNT  -0.5 

0066 

IF  (  ABS  (  COEF  -  4.10  )  LT .  .01  )  EXPNT  -  0.2 

0067 

85 

CONTINUE 

0068 

C  -  .54 

0069 

D  -  0. 

00  70 

QZ  -  FALSE. 

0071 

★ 

0072 

★ . 

CALCUIATE  AVERAGE  VELOCITY  OVER  THE  WEIR  IN  FT/SEC 

0073 

★ 

0074 

VMAX  -  1 . 

0075 

HEAD  -  DEPTH  -  CREST 

00/6 

AVGVEL  -  FLORAT  /  (  HEAD  *  LENGTH  ) 

00  7  7 

★ 

0078 

*  4 

CHECK  FOR  INTERFERENCE  FROM  BOTTOM  ASSUMED  SURFACE 

0079 

* 

INTERFERENCE  ... 

0080 

★ 

0081 

90 

CONTINUE 

0082 

WRDEN  -  DEN I NT  (  CREST  ) 

008  3 

QBLIM  -  FWF.IR  (  0.  )  GE.  0 

0084 

QTLIM  -  TRUE 

0085 

★ 

0086 

★ 

EMBARK  ON  DETERMINATION  OF  LOWER  WITHDRAWAL  LIMIT 

008  7 

★ 

0088 

IF  (  NOT  QBLIM  )  GO  TO  100 

0089 

★ 

0090 

* 

IF  BOTTOM  INTERFERENCE  EXISTS  THEN  SET  LOWER  LIMIT 

0091 

★ 

AT  THE  BOTTOM 

0092 

* 

009  3 

HOT LOW  -  0. 

0094 

LOWLIM  -  1 

009  5 

GO  TO  140 

0096 

100 

CONTINUE 

009  / 

* 

0098 

★ 

IF  LOWER  LIMIT  IS  WITHIN  THE  POOL  THEN  FIND  IT  WITH 

0099 

* 

HALF  INTERVAL  SEARCH 

0100 

★ 

F.4  7 
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VWEIR 

0101  DETERMINE  ELEVATION,  LAYER ,  FUNCTION  VALUE,  AND  FUNCTION  SIGN 

0102  *  AT  EACH  SEARCH  LIMIT  XI  POOL  BOTTOM  AND  X2  WEIR  CREST 

0103  * 

0104  XI  -  0. 

0105  FI  -  FWEIR  (  XI  ) 

0106  Ql  -  FI  .CT.  0. 

0107  X2  -  CREST 

0108  F2  -  AVCVEL 

0109  Q2  -  F2  .CT.  0. 

0110  X3  -  -  2.  *  SMALL 

0111  * 

0112  *....  FUNCTION  MUST  BE  POSITIVE  AT  THE  WEIR  LEVEL  AND  NEGATIVE 

0113  *  AT  THE  BOTTOM 

0114  * 

0115  IF  (  Ql  .OR.  NOT  Q 2  ) 

0116  &  CALL  ERROR  (  1600  ,  SUBR,  XDIJMY .  XDUMY1  ,  XDUMY2  , 

0117  &  XDUMY  3  ) 

0118  * 

0119  *....  INITIATE  ITERATION  PROCESS 

0120  * 

0121  DO  120  I  -  1 ,  ITMAX 

0122  * 

0123  *....  ESTABLISH  A  THIRD  POINT  BETWEEN  THE  TWO  EXISTING  POINTS 

0124  * 

0125  X4  -  X  3 

0126  X 3  —  (  XI  t  X?  )  /  2 

0127  * 

0128  *  CALCULATE  FUNCTION  SIGN  AT  NEW  ELEVATION 

0129  * 

0130  F 3  -  FWEIR  (  X3  ) 

01  31  * 

0132  *....  IF  NEW  POINT  IS  SAME  AS  PREVIOUS  POINT  (WITHIN  TOLERANCE) 

0133  *  THEN  SEARCH  IS  COMPLETE 

0134  * 

0135  IF  (  ABS  (  X4  X)  )  IT  SMALL  )  GO  TO  1)0 

01  36  ★ 

01)7  *. . .  USE  AS  NEW  SEARCH  LIMITS  THE  MOST  RECENTLY  COMPUTED  POINT 

0118  *  AND  THE  REMAINING  POINT  <>K  OPPOSITE  SIGN 

0139  * 

0140  IF  (  El  *  E 3  GT  0  i  GO  To  llo 

0141  X7  -  X) 

0142  F7  -  F3 

014)  GO  TO  120 

0144  110  CONTINUE 

014  5  X 1  -  X  3 

0146  El  -  F 3 

014/  120  CONTINUE 

01 48  * 

0149  *  CONVERGENCE  HAS  NOT  BEEN  REACHED 

0150  * 


E4  1 
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0151 

CALL  ERROR  (  1610,  SUBR ,  XDUMY ,  XDUMY1 ,  XDUMY2 .  XDUMY3 

0152 

130 

CONTINUE 

0153 

* 

0154 

★ 

CHECK  FOR  (  Z  +  H  )  /  H  LESS  THAN  2.0  IF  TRUE,  REASSIGN 

0155 

* 

COEFFICIENTS  C  AND  D  AND  REPEAT  ITERATION  PROCESS 

0156 

* 

0157 

IF  (  QZ  )  CO  TO  136 

0158 

ZLOW  -  CREST  -  X  3 

0159 

XCHECK  -  (  ZLOW  +  HEAD  )  /  HEAD 

0160 

IF  (  XCHECK  CE  2.0  )  GO  TO  135 

0161 

C  -  .  78 

0162 

D  -  70 

0163 

QZ  -  TRUE 

0164 

CO  TO  90 

0165 

1  3  5 

CONTINUE 

0166 

1  36 

CONTINUE 

016  7 

★ 

0168 

* 

SET  LOWER  LIMIT  ELEVATION  AND  I AYER 

0169 

* 

01  70 

HCTLOW  -  X  3 

017  1 

LOWLIM  -  IAYF.R  (  XI  ) 

01/2 

140 

CONTINUE 

0  1  7  3 

* 

01  74 

* 

SET  UPPER  LIMIT  AT  SURFACE 

0  1  7  5 

★ 

01  76 

CONTINUE 

01  7  7 

HCTTOP  -  DEPTH 

01  '8 

TOPI. I M  -  1  SURF 

0  1  7  9 

* 

0180 

* 

CALCUIATF.  LOCATION  OF  MAXIMUM  VELOCITY 

0181 

* 

0187 

ZONE  -  HCTTOP  HCTLOW 

018  1 

ZLOW  -  CREST  •  HCTLOW 

0184 

* 

0185 

* 

IF  WEIR  IS  FREE,  MAX  I  MUM  VELOCITY  IS  AT  THE  SURFACE 

0186 

* 

018  7 

IE  (  NOT  QSUB  )  YVMAX  -  ZONE 

0188 

★ 

0184 

* 

BASED  ON  BolIAN  AND  (  RACE 

0  1  40 

★ 

0  1  4  1 

11  i  QSUR  >  YVMAX  -  ZONE  *  SIN  »  1  3  7  *  Zl.OW  Z.oNl  i  • 

014.’ 

* 

01 

* 

COMPUTE  THICKNESS  OF  WITHDRAWAL  ZONE 

01  4., 

* 

01  43 

* 

HEIGHT  OF  MAX  VELOCITY  ABOVE  THE  BOTTOM 

01  46 

★ 

014  ’ 

XVMAX  -  YVMAX  *  HCTLOW 

0148 

* 

0  1  44 

* 

I AYER  No  LOCATION  <>E  MAX  VELOCITY 

o,’ 00 

★ 

E 


4  ■* 
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0201 

LVMAX  -  LAYER  (  XVMAX  ) 

0202 

★ 

0203 

* 

DENSITY'  AT  LAYER  OF  MAX  VELOCITY 

0204 

★ 

0205 

DVMAX  -  DEN  I  NT  (  XVMAX  ) 

0206 

it 

020  7 

★ 

DETERMINE  DISTANCE  BETWEEN  PORT  ELEVATION  AND  LOWER  AND 

0208 

★ 

UPPER  LIMITS  RESPECTIVELY  . 

0209 

★ 

0210 

YLOW  -  DELZ  *  (  LVMAX  -  LOWL1M  ) 

0211 

YTOP  -  DELZ  *  (  T0PLIM  -  LVMAX  ) 

0212 

★ 

0213 

* 

DETERMINE  DENSITY  AT  LIMITS 

0214 

★ 

0215 

DF.NLOW  -  DEN  I  NT  (  HGTLOW  ) 

0216 

DENTOP  -  DEN  I  NT  (  HGTTOP  > 

021  7 

it 

0218 

it 

CALCU1ATE  MAXIMUM  VELOCITY 

0219 

it 

02  20 

VMAX  -  1 

02  21 

it 

0222 

★ 

ZERO  THE  VELOCITY  PROFILE 

02  2  3 

it 

0224 

DO  150  I  -  1,  I  SURF 

02  2  5 

V  (  I  )  -  0 

0226 

150 

CONTINUE 

02  2  / 

★ 

0228 

it 

IF  LOWER  WITHDRAWAL  1 AYERS  ARE  OF  CONSTANT  DENSITY  THEN 

0229 

it 

ASSIGN  CONSTANT  VELOCITY  TO  EACH  1  AYER 

02  30 

it 

02  31 

IF  (  LVMAX  EQ  LOWLIM  >  GO  TO  200 

02  3  2 

DENDIF  -  DEN LOW  DVMAX 

02  3  3 

IF  (  DENDIF  GT  0  )  tit)  TO  170 

02  34 

DO  160  I  -  LOWLIM.  LVMAX 

02  35 

V  (  I  )  -  VMAX 

02  36 

160 

CONTINUE 

02  3  7 

GO  TO  200 

02  38 

1  70 

CONTINUE 

02  39 

•* 

0240 

it 

GALCUIATE  VELOCITY  PROFILE  FROM  I AYER  OF  MAXIMUM  VELOCITY 

0241 

★ 

TO  LOWER  LIMIT 

0242 

* 

024  3 

DO  190  I  -  LOWLIM.  LVMAX 

0244 

Y 1  -  DELZ  *  (  LVMAX  ■  I  > 

024  5 

DEI  DEN  -  DEN  (  I  )  DVMAX 

0246 

RATIO  -  Y1  *  DELDEN  /  (  YI.OW  *  DENDIF  ) 

024  7 

RATIO  -  AM  I N 1  <  1  .  RATIO  ) 

0248 

IF  (  QBLJM  )  GO  TO  180 

0249 

P  -  3  0 

02  50 

* 

Fi  4 
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0251 

★  t 

IF 

WEIR  IS  SUBMERGED  .... 

0252 

★ 

0253 

IF  (  QSUB 

)  V  (  I  )  -  VMAX  *  (  1.  -  RATIO  )  **  P 

0254 

★ 

0255 

★  . 

IF 

WEIR  IS  FREE  .... 

0256 

★ 

0257 

I F  (  NOT . 

QSUB  )  V  (  I  )  -  VMAX  * 

0258 

6 

(  1.  -  RATIO  **  EXPNT  ) 

0259 

GO  TO  190 

0260 

180 

CONTINUE 

0261 

* 

0262 

*  . 

IF 

BOTTOM  INTERFERENCE  .... 

0263 

* 

0264 

V  (  I  )  - 

VMAX  *  (  1.  -  RATIO  **  2  ) 

0265 

190 

CONTINUE 

0266 

200 

CONTINUE 

0267 

if 

0268 

it 

IF 

FREE  WEIR, 

GO  TO  260 

0269 

* 

02/0 

IF  (  .NOT. 

QSUB  )  GO  TO  260 

02/1 

* 

02  n 

IF 

UPPER  WITHDRAWAL  LAYERS  ARE  OF  CONSTANT  DENSITY  THEN 

02/3 

★ 

ASSIGN  CONSTANT  VELOCITY  TO  EACH  LAYER  . 

02  74 

★ 

02  75 

IF  (  LVMAX 

. EQ  TOPLIM  )  GO  TO  260 

02  76 

DENDIF  -  DVMAX  -  DENTOP 

02/7 

IF  (  DENDIF  CT  0  )  GO  TO  220 

02/8 

DO  210  I  - 

LVMAX  .  TOPLIM 

02/9 

V  (  I  ) 

-  VMAX 

0280 

210 

CONTINUE 

0281 

GO  TO  250 

0282 

2  20 

CONTINUE 

02  8  3 

* 

02  84 

★ 

DETERMINE  VELOCITY  PROFILE  FROM  IAYER  <>F  MAXIMUM  VELOCI 

0285 

it 

TO 

UPPER  LIMIT 

0286 

H 

028/ 

DO  790  I  - 

LVMAX.  TOPLIM 

0288 

Y 1 

-  DELZ  *  (  I  -  LVMAX  ) 

0289 

DELDEN 

-  DVMAX  -  DEN  <  1  I 

0290 

RATIO 

-  Y1  *  DELDEN  /  (.  YToP  *  DENDIF  > 

0291 

RATIO 

-  AM  INI  <  1  ,  RATIO  ) 

02  9  2 

V  (  I  ) 

-  VMAX  *  (  1  -  RATIO  **  2  > 

029  ) 

290 

'  ONT  I  Nl'E 

0  2 

2  ‘>0 

CONTINUE 

02  9  S 

260 

CONTINUE 

0296 

* 

0  2  9  / 
02  ‘-*8 
0799 
0)00 


*  ...  CONVERT  NORMALIZED  VELOCITIES  To  ELOW  RATES.  I  E 

*  DETERMINE  WITHDRAWAL  FROM  EACH  I  AYER 

* 


E  uh 


SUM  -  00 
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0301 

DO  270  I  -  LOWLIM, 

T0PLIM 

0302 

SUM  -  SUM  +  V  ( 

I  )  *  HGT 

0303 

270 

CONTINUE 

0304 

VM  -  FLO RAT  /  SUM 

0305 

DO  280  I  -  LOWLIM, 

TOPLIM 

0306 

V  (  I  )  -  V  (  I 

)  *  VM 

0307 

280 

CONTINUE 

0308 

RETURN 

0309 

END 

Instruction  Report  E-87-2 
July  1992 


XPRINT 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
004  3 
0044 
0045 
0046 
0047 
0048 
0049 
0050 


SUBROUTINE  XPRINT 

***************************************************************** 
*  * 

*  SUBROUTINEXPRINT  * 

*  * 
***************************************************************** 
* 

*  _  PRINTS  OUTPUT  INFORMATION _ 

* 

COMMON  /  AA 
COMMON  /  BB 
COMMON  /  CC 
COMMON  /  DD 
COMMON  /  EE 
COMMON  /  FF 
COMMON  /  HH 
COMMON  /II 
COMMON  /  JJ 
COMMON  /  KK 

& 

COMMON  /  LL 
COMMON  /  MM 
COMMON  /  NN 

& 

COMMON  /  QQ 
COMMON  /  RR 
COMMON  /  SS 

* 

CHARACTERS 

* 

LOGICAL  QMETR ,  QPORT,  QWEIR,  QCENT ,  QTEMP ,  QPLOT 
LOGICAL  QSINK1,  QSINK2 ,  QPWEIR 

* 

CHARACTERS  XMETERS ,  DIST 
CHARACTERS  XFEET 

* 

DATA  XFEET,  XMETERS  /  'FEET',  'METERS'  / 

* 

TEMFUN  (T)-9.  /  5.  *  T  +  32. 

* 

*  _  PRINT  HEADINGS  AND  SUMMARY  INFORMATION  .... 

* 

WRITE  (  KFILE ,  510  )  TITLE 
WRITE  (  KFILE,  520  )  HEADING 

* 

*. . . .  UNITS  .... 

* 

DIST  -  XFEET 

IF  (  QMETR  )  DIST  -  XMETERS 
WRITE  (  KFILE,  500  )  DIST 


/  QMETR,  NSETS,  G,  HEADING  (18),  TITLE  (18) 
/  IFILE ,  KFILE 

/  DELZ,  INTER,  SURFACE,  BOTTOM 
/  WTHETA  (5),  WANGLE 

/  NPORTS ,  QPORT,  QWEIR,  QPLOT,  QPWEIR 
/  PVDIM  (5),  PHGT  (5),  FLOW  (5),  PHDIM  (5) 

/  WRLNG ,  WRHGT ,  WRFLOW 

/  NUMD ,  DEN  (100),  YD  (100),  QDEN ,  DENPRT 
/  NUMT ,  QCENT,  TEMP  (100),  YT  (100),  QTEMP 
/  NQUAL,  NUMQ  (4),  NAME Q  (5,4), 

QUAL  (4,  100),  YQ  (4,  100) 

/  ISURF ,  HGT  (100),  DEPTH,  Y  (100) 

/  SUMOUT,  VEL  (100),  FLORAT 
/  HGTPRT,  VDIM ,  QTLIM ,  QBLIM ,  QSINK1, 

QSINK2 ,  QSHIFT 
/  VS  (100,  6) ,  NOUTS 

/  ZUP  (6),  ZDN  (6),  LTOP  (6),  LLOW  (6) 

/  WTHDRW  (100),  DENOUT,  TEMOUT,  QALOUT  (4) 

HEADING,  TITLE,  NAMEQ 


E48 
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0051 

IF  (  .NOT.  QPORT  )  GO  TO  110 

0052 

* 

0053 

.  PORT  INFORMATION  _ 

0054 

* 

0055 

DO  100  L  -  1,  NPORTS 

0056 

PELEV  -  PHGT(L)  +  BOTTOM 

0057 

WRITE  (  KFILE,  530  )  PELEV,  PVDIM  (  L  ) ,  FLOW  (  L  ) 

0058 

&  WTHETA  (  L  ) 

0059 

100 

CONTINUE 

0060 

110 

CONTINUE 

0061 

* 

0062 

.  WEIR  INFORMATION  _ 

0063 

* 

0064 

IF  (  QWEIR  )  WELE  =  WRHGT  +  BOTTOM 

0065 

IF  (  QWEIR  )  WRITE  (  KFILE,  540  )  WELE,  WRLNG ,  WRFLOW 

0066 

* 

0067 

.  FLOW  RATE  INFORMATION  _ 

0068 

* 

0069 

WRITE  (  KFILE,  550  )  SUMOUT 

0070 

* 

0071 

.  WITHDRAWAL  LIMIT  INFORMATION  _ 

0072 

* 

0073 

.  THEORETICAL  LIMITS  _ 

0074 

* 

0075 

ZUPEL  -  ZUP  (  NOUTS  )  +  BOTTOM 

0076 

ZDNEL  -  ZDN  (  1  )  +  BOTTOM 

0077 

* 

0078 

ACTUAL  LIMITS  _ 

0079 

* 

0080 

AWLUPP  -  AMIN1  (  DEPTH,  ZUP  (  NOUTS  )  ) 

0081 

AWLBOT  -  AMAX1  (0.0  ,  ZDN  (1  )  ) 

0082 

AZUPEL  =  AWLUPP  +  BOTTOM 

0083 

AZDNEL  -  AWLBOT  +  BOTTOM 

0084 

WRITE  (  KFILE,  555  )  AWLBOT  ,  AZDNEL 

0085 

WRITE  (  KFILE,  560  )  ZDN  (  1  ),  ZDNEL 

0086 

WRITE  (  KFILE,  565  )  AWLUPP  ,  AZUPEL 

008  7 

WRITE  (  KFILE,  570  )  ZUP  (  NOUTS  ),  ZUPEL 

0088 

* 

0080 

* 

RELEASE  DENSITY  .... 

M  ]  '4  0 

* 

<i 

WRITE  (  KFILE,  580  )  DENOUT 

•  . 

it 

IF  (  .NOT.  QTEMP  )  GO  TO  120 

* 

RELEASE  TEMPERATURE  .... 

IK  (  NOT.  QCENT  )  TEMOUT  -  TEMFUN  (  TEMOUT  ) 
-KITE  t  KFII.E,  590  )  TEMOUT 
-  '■<  r  i  Ni'K 

v.il'A!.  ¥.()  0  )  GO  TO  130 


K.'f 
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0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 


*  _  RELEASE  QUALITY  PARAMETER  VALUE _ 

* 

WRITE(  KFILE ,  600  )(  (  NAMEQ  (  NM,  J  ),  NM  -  1,  5), 

&  QALOUT  (  J  ) ,  J  -  1 ,  NQUAL  ) 

130  CONTINUE 

* 

*  _  PORT  MODELED  AS  WEIR _ 

* 

IF  (  QPWEIR  )  WRITE  (  KFILE,  607  ) 

* 

*  _  POINT  SINK  VERIFICATION  INFORMATION  _ 

* 

IF  (  .NOT.  QSINK1  )  WRITE  (  KFILE,  605  ) 

IF  (  .NOT.  QSINK2  )  WRITE  (  KFILE,  606  ) 

* 

*  _  PRINT  TABULAR  INFORMATION _ 

* 

IF  (  .NOT.  QTEMP  .AND.  NQUAL  .EQ.  0  )  THEN 
WRITE  (  KFILE,  610  ) 

ELS El F  (  QTEMP  .AND.  NQUAL  . EQ .  0  )  THEN 
WRITE  (  KFILE,  620  ) 

ELSEIF  (  .NOT.  QTEMP  .AND.  NQUAL  .GT.  0  )  THEN 

WRITE  (  KFILE,  630  )(  (  NAMEQ  (  NM  ,  J  ) ,  NM  -  1 ,  3  ), 
&  J  -  1,  NQUAL  ) 

ELSE 

WRITE  (  KFILE,  635  )(  (  NAMEQ  (  NM  ,  J  ) ,  NM  -  1 ,  3  ), 
&  J  -  1,  NQUAL  ) 

END  IF 

* 

DO  170  I  -  1,  I SURF ,  INTER 
K  -  I SURF  -  I  +  1 
ELEV  -  Y  (  K  )  +  BOTTOM 
DEEP  -  SURFACE  -  ELEV 

* 

*  _  ELEVATION,  DENSITIES,  NORMALIZED  VELOCITY,  AND 

*  LAYER  WITHDRAWAL  .... 

* 


IF  (  .NOT.  QTEMP  .AND.  NQUAL  . EQ .  0  )  THEN 
WRITE  (  KFILE,  640  )  ELEV,  DEEP,  DEN  (  K  ) , 

&  VEL  (  K  ) ,  WTHDRW  (  K  ) 

ELSEIF  (  QTEMP  .AND.  NQUAL  . EQ.  0  )  THEN 

IF  (  .NOT.  QC ENT  )  TEMP  (  K  )  -  TEMFUN  (  TEMP  (  K  )  ) 
WRITE  (  KFILE,  650  )  ELEV,  DEEP,  DEN  (  K  ) , 

6.  VEL  (  K  )  ,  WTHDRW  (  K  )  ,  TEMP  (  K  ) 

ELSEIF  (  .NOT.  QTEMP  .AND.  NQUAL  . CT .  0  )  THEN 
WRITE  (  KFILE,  660  )  ELEV,  DEEP,  DEN  (  K  ) , 

&  VEL  (  K  ) ,  WTHDRW  (  K  ) , 

&  (  QUAL  (  J  ,  K  ) ,  J  -  1 ,  NQUAL  ) 

ELSE 


WRITE  (  KFILE,  670  )  ELEV,  DEEP,  DEN  (  K  ) , 
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0151  &  VEL  (  K  ),  WTHDRW  (  K  ),  TEMP  (  K  )  , 

0152  &  (  QUAL  (  J  ,  K  ),  J  -  1,  NQUAL  ) 

0153  END IF 

0154  170  CONTINUE 

0155  * 

0156  * _  PLOT  DENSITY  AND  VELOCITY  PROFILES  _ 

0157  * 

0158  CALL  DVPLOT 

0159  * 

0160  RETURN 

0161  500  FORMAT  (  //  20X,  12HUNITS  ARE  IN,  IX,  A6  ) 

0162  510  FORMAT  (  1H1  //  8X,  18A4  ) 

0163  520  FORMAT  (  ////  8X,  18A4  ) 

0164  530  FORMAT  (  //  20X,  14HP0RT  ELEVATION,  2X,  F9 . 3  /  20X, 

0165  &  23HPORT  VERTICAL  DIMENSION,  2X,  F10.3  /  20X, 

0166  &  31HDISCHARGE ,  VOLUME  FLOW  PER  SEC.,  2X,  F11.4 

0167  &  /  20X,  2 1 HW I TH DRAWAL  ANGLE,  RAD,  2X  ,  F6.4  ) 

0168  540  FORMAT  (  //  20X,  20HWEIR  CREST  ELEVATION,  2X,  F9 . 3  / 

0169  &  20X,  11HWEIR  LENGHT,  2X,  F10.3  /  20X, 

0170  &  31HDISCHARGE,  VOLUME  FLOW  PER  SEC.,  2X,  F11.4  ) 

0171  550  FORMAT  (  ///  20X,  31HTOTAL  DISCHARGE,  VOLUME  PER  SEC, 

0172  &  2X,  F11.4  ) 

0173  555  FORMAT  (  //  20X,  33HLOWER  WITHDRAWAL  LIMIT  (  ACTUAL  ), 

0174  &  20H  HEIGHT  ABOVE  BOTTOM,  7X,  F9 . 3 ,  4X, 

0175  &  9HELEVATION,  2X,  F9 . 3  ) 

0176  560  FORMAT  (  20X,  38HLOWER  WITHDRAWAL  LIMIT  (  THEORETICAL  ), 

0177  &  20H  HEIGHT  ABOVE  BOTTOM,  2X,  F9 . 3 ,  4X, 

0178  6c  9HELEVATION ,  2X,  F9 . 3  ) 

0179  565  FORMAT  (  20X,  33HUPPER  WITHDRAWAL  LIMIT  (  ACTUAL  ), 

0180  6c  20H  HEIGHT  ABOVE  BOTTOM,  7X,  F9 . 3 ,  4X, 

0181  6c  9HELEVATION ,  2X,  F9 . 3  ) 

0182  570  FORMAT  (  20X,  38HUPPER  WITHDRAWAL  LIMIT  (  THEORETICAL  ), 

0183  6c  20H  HEIGHT  ABOVE  BOTTOM,  2X,  F9 . 3 ,  4X, 

0184  6c  9HELEVATION ,  2X,  F9 . 3  ) 

0185  580  FORMAT  (  20X,  15HOUTFLOW  DENSITY,  2X,  F7 . 5 ,  2X,  4HG/CC  ) 

0186  590  FORMAT  (  20X,  19HOUTFLOW  TEMPERATURE,  2X,  F6 . 2  ) 

0187  600  FORMAT  (  20X,  24HOUTFLOW  CONCENTRATION  OF,  IX,  5A4 , 

0188  6.  2X,  F8.2  ) 

0189  605  FORMAT  (  /,  20X,  10H********** ,  5X,  18HWARNING- POINT  SINK, 

0190  6c  41HDESCRIPTION  NOT  ADEQUATE  FOR  LOWER  LIMIT,  5X, 

0191  6c  10H**********  ) 

0192  606  FORMAT  (  /,  20X,  10H********** ,  5X,  18HWARNING- POINT  SINK, 

0193  6.  41H  DESCRIPTION  NOT  ADEQUATE  FOR  UPPER  LIMIT,  5X, 

0194  6c  10H**********  ) 

0195  607  FORMAT  (  /,  20X,  5H*****,  3X,  'PARTIALLY  SUBMERGED', 

0196  6.  '  PORT  RESPONDED  AS  A  WEIR  FOR  THIS  CONDITION', 

0197  6c  '  SO  VWEIR  WAS  USED'  ) 

0198  610  FORMAT  (  1H1  //  2X,  9HELEVATION ,  3X,  5HDEPTH ,  4X , 

0199  6c  7HDENSITY,  3X,  10HN0RM.  VEL.,  4X,  4 H FLOW  ) 

0200  620  FORMAT  (  1H1  //  2X,  9HELEVATION ,  3X,  5HDEPTH ,  4X, 
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7HDENSITY ,  3X,  10HNORM.  VEL. ,  AX,  4 H FLOW , 
13X,  1 1HTEMPERATURE  ) 

FORMAT  (  1H1  //  2X,  9HELEVATION ,  3X ,  5HDEPTH ,  AX, 
7HDENSITY ,  3X,  10HNORM.  VEL.,  AX,  AHFLOW , 
2AX ,  A (  2X,  3AA  )  ) 


0206 

635 

FORMAT 

( 

1H1 

//  2X 

9HELEVATION , 

3X ,  5HDEPTH ,  AX, 

0207 

& 

7HDENSITY 

3X 

10HNORM. 

VEL. ,  AX, 

AHFLOW 

0208 

& 

13X, 

11HTEMPERATURE , 

4( 

2X ,  3AA  ) 

) 

0209 

6A0 

FORMAT 

( 

2X , 

F9. 3, 

AX, 

F6.2, 

AX, 

F7.5, 

0210 

& 

5X, 

F6.A, 

3X , 

F9.A  ) 

0211 

650 

FORMAT 

( 

2X, 

F9.3, 

AX, 

F6.2, 

AX, 

F7.5, 

0212 

& 

5X, 

F6.A, 

3X, 

F9.A, 

15X, 

F5.2  ) 

0213 

660 

FORMAT 

( 

2X, 

F9. 3, 

AX, 

F6.2, 

AX, 

F7.5, 

021A 

& 

5X, 

F6.A, 

3X , 

F9.A, 

20X, 

AF13.2  ) 

0215 

670 

FORMAT 

( 

2X , 

F9.3, 

AX, 

F6.2, 

4X , 

F7.5, 

0216 

& 

5X, 

F6.A, 

3X , 

F9.A, 

15X , 

F5.2, 

AF13.2 
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SUBROUTINE  XREAD 

★  * 

*  SUBROUTINE  XREAD  * 

*  * 
★♦♦a************************************************************* 
* 

THIS  SUBROUTINE  READS  ALL  INPUT  DATA  AND  CONSTRUCTS 

*  FULL  TABLES  .... 

* 

COMMON  /  AA  /  QMETR ,  NSETS,  G,  HEADING  (18),  TITLE  (18) 

COMMON  /  BB  /  IFILE ,  KFILE 

COMMON  /  CC  /  DELZ,  INTER,  SURFACE,  BOTTOM 

COMMON  /  DD  /  WTHETA  (5),  WANGLE 

COMMON  /  EE  /  NPORTS ,  QPORT,  QWEIR,  QPLOT,  QPWEIR 
COMMON  /  FF  /  PVDIM  (5),  PHGT  (5),  FLOW  (5),  PHDIM  (5) 
COMMON  /  GG  /  COEF ,  QSUB ,  QQUAL 
COMMON  /  HH  /  WRLNG ,  WRHGT ,  WRFLOW 

COMMON  /  II  /  NUMD ,  DEN  (100),  YD  (100),  QDEN ,  DENPRT 
COMMON  /  JJ  /  NUMT ,  QCENT,  TEMP  (100),  YT  (100),  QTEMP 
COMMON  /  KK  /  NQUAL ,  NUMQ  (4),  NAMEQ  (5,4), 

&  QUAL  (4,100),  YQ  (4,100) 

COMMON  /  LL  /  I SURF,  HGT  (100),  DEPTH,  Y  (100) 

COMMON  /  NN  /  HGTPRT ,  VDIM,  QTLIM,  QBLIM ,  QSINK1, 

&  QSINK2 ,  QSHIFT 

COMMON  /  TT  /  QVENT ,  QAERA,  QTWFUN ,  TWEL 

* 

DIMENSION  DUMMY  (20) 

DIMENSION  DUMQUAL  (100),  DUMYQ  (100) 


INTEGER 


TABTYP 


CHARACTERS  CHECK,  CHECK1 ,  CHECK2 , 

HEADING,  TITLE,  NAMEQ, 

XDATA ,  XPRIN ,  XENGL,  XMETR ,  XELEV ,  XDEPT , 
XHEIG ,  XTHIC ,  XINTE,  XSURF,  XBOTT , 

XNUMB ,  XPORT ,  XWEIR,  XVDIM,  XFLOW, 

XFREE ,  XSUBM,  XCOEF,  XLENG ,  XDENS ,  XTEMP , 
XQUAL ,  XFAHR ,  XCENT ,  XTABL ,  XSTOP ,  XHDIM , 
XTURB ,  XGATE ,  XFUNC ,  XTAIL,  XDISS, 

DUMMY,  UNITS,  XANGL 
CHARACTERS  SUBR 


LOGICAL  QECHO  ,  QMETR,  QPORT  ,  QWEIR  ,  QSUB  ,  QPLOT, 
QPWEIR,  QDEN  ,  QCENT  ,  QTAB1  ,  QTEMP  ,  QQUAL 
LOGICAL  QVENT  ,  QAERA,  QTWFUN,  QFIRST ,  QSINK1,  QSINK2 

DATA  XDATA,  XPRIN,  XENGL  /  'DATA',  'PRIN',  'ENGL'  / 

DATA  XMETR,  XELEV,  XDEPT  /  'METR' ,  'ELEV',  'DEPT'  / 

DATA  XHEIG,  XTHIC  /  'HEIG' ,  'THIC'  / 
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0051 

DATA 

XINTE, 

XSURF , 

XBOTT 

/ 

'  INTE'  , 

' SURF' 

- bott • 

/ 

0052 

DATA 

XNUMB , 

XPORT , 

XCATE 

/ 

'  NUMB'  , 

' PORT' 

,  'CATE' 

/ 

0053 

DATA 

XWEIR , 

XVDIM , 

XFLOW 

/ 

'WEIR'  , 

' VDIM' 

,  ' FLOW ’ 

/ 

0054 

DATA 

XFREE , 

XSUBM , 

XCOEF 

/ 

’  FREE'  , 

' SUBM ' 

.  ' COEF ' 

/ 

0055 

DATA 

XLENG , 

XDENS , 

XTEMP 

/ 

’  LF.NC '  , 

' DENS ' 

,  'TEMP' 

/ 

0056 

DATA 

XQUAL , 

XFAHR , 

XCENT 

/ 

'QUAL'  , 

' FAHR ' 

,  'CENT' 

/ 

0057 

DATA 

XTABL , 

XSTOP , 

XANCL 

/ 

'  TABL'  , 

’ STOP' 

,  'ANGL' 

/ 

0058 

DATA 

XHDIM , 

XDISS 

/ 

'  HDIM '  , 

' D I SS ' 

/ 

0059 

DATA 

XTURB , 

XTA1L, 

XFUNC 

/ 

'TURB'  , 

'TAIL' 

,  ' FUNC ' 

/ 

0060 

DATA  QFIRST 

/ 

. FALSE. 

/ 

0061 

DATA 

XDUMY , 

XDUMY 1 

,  XDUMY2 , 

XDUMY 3 

/  4  * 

'0 

/ 

0062 

DATA 

SUBR 

/ 

'XREAD' 

/ 

0063  * 

0064  * _  PROGRAM  CONTROL  PARAMETERS  .... 

0065  * 

0066  IF  (  QFIRST  )  GO  TO  145 

0067  QFIRST  -  .TRUE. 

0068  * 

0069  INPUT  FILE  TITLE  .... 

0070  * 

0071  READ  (  IFILE ,  610  )  TITLE 

0072  * 

0073  * _  NUMBER  OF  DATA  SETS  .... 

0074  * 

0075  READ  (  IFILE,  620  )  CHECK,  NSETS 

0076  IF  (  CHECK  .NE.  XDATA  ) 

0077  6 <  CALL  ERROR  (  1010  ,  SUBR ,  CHECK,  XDATA  ,  XDUMY2 , 

0078  &  XDUMY3  ) 

0079  * 

0080  *.  .  .  .  ECHO  PRINT  .... 

0081  * 

0082  QECHO  -  .FALSE. 

0083  READ  (  IFILE,  610  )  CHECK 

0084  QECHO  -  CHECK  . EQ .  XPRIN 

0085  IF  (  .NOT.  QECHO  )  CO  TO  140 

0086  QECHO  =  .FALSE. 

0087  MFILE  -  IFILE 

0088  REWIND  MFILE 

0089  WRITE  (  KFILE ,  600  ) 

0090  * 

0091  * _  INITIALIZE  LINE  NUMBERS.  ECHO  PRINT  FILE  .... 

0092  * 

0093  LINE  -  1000 

0094  100  CONTINUE 

0095  * 

0096  *. . . .  PRINT  LINE  OF  INPUT  TO  OUTPUT  WITH  EACH  LOOP  .... 

0097  * 

0098  READ  (  MFILE,  610,  END  =  110  )  DUMMY 

0099  WRITE  (  KFILE,  630  )  LINE,  DUMMY 

0100  * 
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0101  *.  .  .  .  INCREMENT  LINE  NUMBER  .... 

0102  * 

0103  LINE  -  LINE  +  10 

0104  CO  TO  100 

0103  110  CONTINUE 

0106  * 

0107  REWIND  MFILE 

0108  * 

0109  120  CONTINUE 

0110  * 

0111  * _  INCREMENT  FILE  POINTER  TO  PRIOR  INPUT  LINE  .... 

0112  * 

0113  IK  -  3 

0114  DO  130  I  -  1,  IK 

0115  READ  (  IFILE ,  610  )  DUMMY 

0116  130  CONTINUE 

0117  140  CONTINUE 

0118  RETURN 

0119  * 

0120  * _  ENTRY  POINT  TO  READ  THE  INDIVIDUAL  DATA  SETS  .... 

0121  * 

0122  145  CONTINUE 

0123  * 

0124  * _  INITIALIZE  VARIABLES  _ 

0125  * 


0126 

QSINKl 

- 

.TRUE. 

0127 

QSINK2 

- 

.TRUE. 

0128 

QPWEIR 

- 

. FALSE 

0129 

QMETR 

- 

.FALSE 

0130 

QPORT 

- 

. FALSE 

0131 

QWEIR 

- 

. FALSE 

0132 

QTEMP 

- 

.FALSE 

0133 

QSUB 

- 

.FALSE 

0134 

QDEN 

- 

.FALSE 

0135 

QCENT 

- 

.FALSE 

0136 

QTAB1 

- 

. FALSE 

0137 

QVENT 

- 

.FALSE 

0138 

QAERA 

- 

. FALSE 

0139 

QTWFUN 

- 

. FALSE 

0140 

NPORTS 

= 

0 

0141 

NQUAL 

= 

0 

0142 

G 

- 

32.18 

0143  * 

0144  * _  DATA  SET  HEADING  _ 

0145  * 

0146  READ  (  IFILE,  610  )  HEADING 

0147  * 

0148  *....  METRIC  OR  ENGLISH  UNITS 

0149  * 

0150  READ  (  IFILE,  610  )  CHECK 
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0151 

IF  (  CHECK  .NE.  XMETR  .AND. 

0152 

& 

CHECK  .NE.  XENCL  ) 

0153 

& 

CALL  ERROR  (  1020  ,  SUBR ,  CHECK, 

XENCL, 

XMETR, 

0j  59 

& 

XDUMY3  ) 

0155 

QMETR  -  CHECK  .  F.Q .  XMETR 

0156 

IF  (  QMETR  )  C  -  9 . 807 

0157 

* 

0158 

k  _ 

FORM  OF  INPUT  TABLES  .... 

0159 

* 

0160 

READ  (  IF1LE ,  620  )  CHECK,  TABTYP 

0161 

IF  (  CHECK  . NE .  XTABL  ) 

0162 

& 

CALL  ERROR  (  1030  ,  SUBR,  CHECK, 

XTABL, 

XDUMY2 , 

0163 

& 

XDUMY3  ) 

0169 

QTAB1  -  TABTYP  . EQ .  1 

0165 

* 

0166 

*  , 

LAYER  THICKNESS  .... 

0167 

* 

0168 

READ  (  I FILE,  650  )  CHECK,  DELZ 

0169 

IF  (  CHECK  .NE.  XTHIC  ) 

0170 

& 

CALL  ERROR  (  1090  ,  SUBR,  CHECK, 

XTHIC, 

XDUMY2 , 

0171 

6c 

XDUMY3  ) 

0172 

k 

0173 

*.  . 

LAYER  INTERVALS  FOR  WHICH  OUTPUT  INFO  IS 

DESIRED  .... 

0179 

* 

0175 

READ  (  I FILE,  620  )  CHECK,  INTER 

0176 

IF  (  CHECK  .NE.  XINTE  ) 

0177 

6c 

CALL  ERROR  (  1050  ,  SUBR,  CHECK, 

XINTE, 

XDUMY2 , 

0178 

6c 

XDUMY3  ) 

0179 

* 

0180 

*.  . 

SURFACE  ELEVATION  .... 

0181 

* 

0182 

READ  (  I FILE,  650  )  CHECK,  SURFACE 

0183 

IF  (  CHECK  .NE.  XSURF  ) 

0189 

6. 

CALL  ERROR  (  1060  ,  SUBR,  CHECK, 

XSURF, 

XDUMY2 , 

0185 

6. 

XDUMY3  ) 

0186 

* 

0187 

*.  . 

BOTTOM  ELEVATION  .... 

0188 

* 

0189 

READ  (  I FILE,  650  )  CHECK,  BOTTOM 

0190 

IF  (  CHECK  .NE.  XBOTT  ) 

0191 

6c 

CALL  ERROR  (  1070  ,  SUBR,  CHECK, 

XBOTT , 

XDUMY2 , 

0192 

6c 

XDUMY3  ) 

0193 

* 

0199 

*  .  . 

CONSTRUCT  LAYERS  .... 

0195 

* 

0196 

DEPTH  -  SURFACE  -  BOTTOM 

0197 

* 

0198 

*  .  . 

CALCULATE  NUMBER  OF  LAYERS  .... 

0199 

* 

0200 

ISURF  -  (  DEPTH  /  DELZ  )  +  .999 
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0201 

IF  (  I SURF  .CT.  100  ) 

0202 

ft 

CALL  ERROR  (  1080  ,  SUBR,  XDUMY ,  XDUMY1 ,  XDUMY2 , 

0203 

ft 

XDUMY3  ) 

0204 

* 

0205 

* . 

PERCENTAGE  OF  LAYER  FILLED  WITH  WATER  .... 

0206 

* 

0207 

DO  150  I  -  1,  ISURF 

0208 

HGT  (  I  )  -1.0 

0209 

Y  (  I  )  -  (  CELZ  *  FLOAT  (  I  )  )  -  (  .5  *  DELZ  ) 

0210 

150 

CONTINUE 

0211 

HGT  (  ISURF  )  -  (  DEPTH  -  (  DELZ  *  (  ISURF  -  1  )  )  ) 

0212 

ft 

/  DELZ 

0213 

* 

0214 

*.  .  . 

TOP  LAYER  MAY  NOT  BE  JELZ  THICK  _ 

0215 

* 

0216 

Y  (  ISURF  )  =  DEPTH  -  (  HGT  (  ISURF  )  *  DELZ  /  2.0  ) 

0217 

* 

0218 

*.  .  . 

DESCRIPTION  OF  WITHDRAWAL  DEVICES  .... 

0219 

* 

0220 

*.  .  . 

PORT  (AND  TOTAL  NUMBER  THEREOF)  OR  WEIR  .... 

0221 

* 

0222 

READ  (  IFILE ,  620  )  CHECK,  NPORTS 

0223 

IF  (  CHECK  .NE.  XPORT  .AND. 

0224 

ft 

CHECK  .NE.  XWEIR  ) 

0225 

ft 

CALL  ERROR  (  1100  ,  SUBR,  CHECK,  XWEIR,  XPORT, 

0226 

ft 

XDUMY 3  ) 

0227 

* 

0228 

*.  .  . 

DETERMINE  TYPE  OF  WITHDRAWAL  DEVICE  .... 

0229 

* 

0230 

QPORT  -  CHECK  .EQ.  XPORT 

0231 

QWEIR  -  CHECK  . EQ.  XWEIR 

0232 

IF  (  QPORT  )  GO  TO  220 

0233 

IF  (  QWEIR  )  GO  TO  300 

0234 

220 

CONTINUE 

0235 

* 

0236 

* .  .  . 

PORT  CHARACTERISTICS  .... 

0237 

* 

0238 

*.  .  . 

PORT  VERTICAL  DIMENSIONS  .... 

0239 

* 

0240 

READ  (  IFILE,  650  )  CHECK,  (  PVDIM  (  K  ),  K  -  1,  NPORTS 

0241 

IF  (  CHECK  .NE.  XVDIM  ) 

0242 

ft 

CALL  ERROR  (  1110  ,  SUBR,  CHECK,  XVDIM,  XDUMY2 , 

0243 

ft 

XDUMY3  ) 

0244 

* 

0245 

* .  .  . 

PORT  HORIZONTAL  DIMENSIONS  .... 

0246 

* 

0247 

READ  (  IFILE,  650  )  CHECK,  (  PHDIM  (  K  ),  K  -  1,  NPORTS 

0248 

IF  (  CHECK  .NE.  XHDIM  ) 

0249 

ft 

CALL  ERROR  (1120  ,  SUBR,  CHECK,  XHDIM,  XDUMY2 , 

0250 

ft 

XDUMY 3  ) 

Kb  / 
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02  51 
0232 
0233 
02  39 
0233 
02  36 
0237 
0238 
0239 
0260 
0261 
0262 
0263 
0269 
0263 
0266 
0267 
0268 
0269 
0270 
0271 
02  72 
0273 
0279 
0273 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0289 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0299 
0295 
0296 
0297 
0298 
0299 
0300 


*. . . .  PORT  ELEVATIONS 

* 

READ  (  1FILE,  630  )  CHECK,  (  PHOT  (  K  ),  K  -  1,  NPORTS  ) 
IF  (  CHECK  .  NE.  XELEV  AND.  CHECK  .NE.  XHEIG  AND. 

&  CHECK  .NE.  XDEPT  ) 

&  CALL  ERROR  (  1130  ,  SUBR ,  CHECK,  XDEPT,  XHF.IC, 

6.  XELEV  ) 

★ 

*. . . .  CONVERT  ELEVATION  TO  HEIGHT  ABOVE  BOTTOM  ... 

★ 

IF  (  CHECK  .EQ.  XHEIG  )  GO  TO  260 
IF  (  CHECK  .EQ.  XDEPT  )  GO  TO  290 


*.  .  .  .  ELEVATION  TO  HEIGHT  .... 

* 

DO  230  K  -  1,  NPORTS 

PHGT  (  K  )  -  PHGT  (  K  )  -  BOTTOM 
230  CONTINUE 

GO  TO  260 
290  CONTINUE 

* 

*. . . .  DEPTHS  TO  HEIGHTS  .... 

* 

DO  250  K  -  I,  NPORTS 

PHGT  (  K  )  -  SURFACE  -  PHGT  (  K  )  -  BOTTOM 
250  CONTINUE 

260  CONTINUE 

* 

* . . . .  PORT  FLOW  RATES  .... 

* 

READ  (  IFILE ,  650  )  CHECK,  (  FLOW  (  K  ),  K=1  ,  NPORTS  ) 
IF  (  CHECK  .NE.  XFLOW  ) 

&  CALL  ERROR  (  1190  ,  SUBR,  CHECK,  XFLOW,  XDUMY2 , 

&  XDUMY3  ) 


*. . . .  WITHDRAWAL  ANGLE  .... 

★ 

READ  (  IFILE,  650  )  CHECK,  (  WTHETA  (  K  ),  K-l ,  NPORTS  ) 
IF  (  CHECK  .NE.  XANGL  ) 

&  CALL  ERROR  (  1150  ,  SUBR,  CHECK,  XANGL,  XDUMY2 , 

&  XDUMY3  ) 

IF  (  NPORTS  . FO.  1  )  GO  TO  290 

★ 

* . . . .  ORDER  PORTS  FROM  BOTTOM  TO  TOP  .... 

★ 

NP  -  NPORTS  -  1 
DO  280  I  -  1 ,  NP 
K  -  I  t  1 

DO  270  J  -  K,  NPORTS 


K3H 
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IF  (  PHGT  (  I  )  .  LT.  PHGT  (  J  )  )  GO  TO  270 

ASSIGN  CHARACTER  I  S'"  T  CS  OF  LOWER  SUBSCRIPTED  PORTS 
TO  DUMMY  VARIABLES  .... 


HGTDUM 

VDUM 

HDUM 

FLOWDUM 

ANCDUM 


PHGT  (  I  ) 
PVDIM  (  I  ) 
PHDIM  (  1  ) 
FLOW  (  I  ) 
WTHETA  (  I  ) 


ASSIGN  CHARACTERISTICS  OF  HIGHER  SUBSCRIPTED  PORTS 
TO  LOWER  SUBSCRIPT  .... 


0315 

PHGT 

(  I 

)  -  PHGT  ( 

J 

) 

0316 

PVDIM 

(  I 

)  -  PVDIM  ( 

J 

) 

0317 

PHDIM 

(  I 

)  -  PHDIM  ( 

J 

) 

0318 

FLOW 

(  I 

)  -  FLOW  ( 

J 

) 

0319 

WTHETA 

(  I 

)  -  WTHETA  ( 

J 

) 

0320 

* 

0321 

* 

ASSIGN  DUMMY  VARIABLE  VALUES  TO 

HIGHER 

0322 

* 

0323 

PHGT 

(  J 

)  -  HGTDUM 

0324 

PVDIM 

(  J 

)  -  VDUM 

0325 

PHDIM 

(  J 

)  -  HDUM 

0326 

FLOW 

(  J 

)  -  FLOWDUM 

0327 

WTHETA 

(  J 

)  -  ANGDUM 

0328 

270 

CONTINUE 

0329 

280 

CONTINUE 

0330 

290 

CONTINUE 

0331 

* 

0332 

* . 

,  .  .  . 

CHECK  FOR  WEIR 

INPUT  .... 

0333 

* 

0334  . 

READ  (  I FILE, 

620 

)  CHECK 

0335 

QWEIR  =  CHECK 

:  .EQ 

.  XWEIR 

0336 

IF  (  QWEIR  ) 

GO  TO  300 

BACKSPACE  I FILE 
GO  TO  340 
CONTINUE 

WEIR  CHARACTERISTICS  .... 
SUBMERGED  OR  FREE  .... 


READ  (  I  FILE,  620  )  CHECK 
IF  (  CHECK  .  NF. .  XFRF.E  AND. 

CHECK  . NE .  XSUBM  ) 

CALL  ERROR  (1160  ,  SUBR ,  CHECK,  XSUBM,  XFREE 

XDUMY3  ) 

QSIJB  -  CHECK  HQ.  XSUBM 


K  Vi 
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0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 


IF  (  QSUB  )  GO  TO  310 

* 

.  FREE  WEIR  COEFFICIENT  . . . . 

★ 


READ  (  IFILE ,  650  )  CHECK,  COEF 
IF  (  CHECK  .NE.  XCOEF  ) 

6.  CALL  ERROR  (1170  ,  SUBR,  CHECK,  XCOEF,  XDUMY2 

&  XDUMY3  ) 

310  CONTINUE 


.  WEIR  LENGTH  .... 

★ 

READ  (  IFILE,  650  )  CHECK,  WRLNC 
IF  (  CHECK  .NE.  XLENG  ) 

&  CALL  ERROR  (1180  ,  SUBR,  CHECK,  XLENG,  XDUMY2 

6.  XDUMY3  ) 

* 

*. . . .  WEIR  HEIGHT  .... 

* 

READ  (  IFILE,  650  )  CHECK,  WRHGT 

IF  (  CHECK  .NE.  XELEV  .AND.  CHECK  .NE.  XHEIC  .AND. 

6i  CHECK  .NE.  XDEPT  ) 

&  CALL  ERROR  (  1200  ,  SUBR,  CHECK,  XDEPT,  XELEV, 

&  XHEIC  ) 

★ 

*. . . .  CONVERT  DEPTH  OR  ELEV  TO  HEIGHT  ABOVE  BOTTOM  .... 

* 

IF  (  CHECK  .EQ.  XHEIG  )  CO  TO  330 
IF  (  CHECK  .EQ.  XDEPT  )  GO  TO  320 

* 

*. . . .  ELEVATION  TO  HEIGHT  .... 

* 

WRHGT  -  WRHGT  -  BOTTOM 
GO  TO  330 
320  CONTINUE 

* 

*. . . .  DEPTH  TO  HEIGHT  .... 

* 

WRHGT  -  SURFACE  -  WRHGT  -  BOTTOM 
330  CONTINUE 

* 

* _  FLOW  RATE  OVER  WEIR  .... 


READ  (  IFILE,  650  )  CHECK,  WRFLOW 
IF  (  CHECK  .NE.  XFLOW  ) 

6.  CALL  ERROR  (1210  ,  SUBR,  CHECK,  XFLOW,  XDUMY2 

6c  XDUMY3  ) 

340  CONTINUE 


*. . . .  TURBINE  VENTING  OR  CONDUIT  AERATION 
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XREAD 

0401 

* 

0402 

READ (  IFILE,  610  )  CHECK 

0403 

QVENT  -  CHECK  . EQ .  XTURB 

0404 

QAERA  -  CHECK  .EQ.  XGATE 

0403 

I F(  .NOT.  QVENT  .AND.  .NOT.  QAERA  )  BACKSPACE  1FII.E 

0406 

* 

0407 

*.  .  . 

TAILWATER  FUNCTION  OR  SINGLE  ELEVATION. 

0408 

* 

NEEDED  WHEN  QAERA  -.TRUE . 

0409 

* 

0410 

IF  (  .NOT.  QAERA  )  GO  TO  345 

0411 

READ  (  IFILE,  635  )  CHECK1 ,  CHECK2 ,  TWEL 

0412 

IF  (  CHECK1  .NE.  XTAIL  ) 

0413 

& 

CALL  ERROR (  1215  ,  SUBR,  CHECK1 ,  XTAIL,  XDUMY2 , 

0414 

& 

XDUMY3  ) 

0415 

QTWFUN  -  CHECK2  . EQ .  XFUNC 

0416 

345 

CONTINUE 

0417 

* 

0418 

* . 

INFORMATION  FOR  DENSITY  OR  TEMP  PROFILE  INCLUDING 

0419 

* 

NUMBER  OF  DATA  .... 

0420 

* 

0421 

READ  (  IFILE,  640  )  CHECK1 ,  CHECK2 ,  NUMD 

0422 

IF  (  CHECK1  .NE.  XNUMB  ) 

0423 

& 

CALL  ERROR  (  1220  ,  SUBR,  CHECK1 ,  XNUMB.  XDUMY2 , 

0424 

& 

XDUMY3  ) 

0425 

IF(  CHECK2  .NE.  XDENS  .AND.  CHECK2  .NE.  XTEMP  ) 

0426 

& 

CALL  ERROR  (  1225  ,  SUBR,  CHECK2 ,  XDENS,  XTEMP, 

0427 

& 

XDUMY3  ) 

0428 

* 

0429 

QDEN  -  CHECK2  .EQ.  XDENS 

0430 

IF  (  QDEN  )  GO  TO  350 

0431 

NUMT  -  NUMD 

0432 

GO  TO  420 

0433 

350 

CONTINUE 

0434 

* 

0435 

* .  .  . 

DENSITY  .... 

0436 

* 

0437 

IF  (  QTAB1  )  GO  TO  360 

0438 

* 

0439 

*.  .  . 

ELEVATION  AND  DENSITY  VALUES  LISTED  IN  SEPERATE  TABLES  . 

0440 

* 

0441 

READ  (  IFILE,  610  )  CHECK 

0442 

* 

044  3 

*.  .  . 

ELEVATIONS  .... 

0444 

* 

0445 

IF  (  CHECK  .NE.  XELEV  .AND.  CHECK  .NE.  XHEIG  .AND. 

0446 

& 

CHECK  .NE.  XDEPT  ) 

0447 

& 

CALL  ERROR  (  1230  ,  SUBR,  CHECK,  XDEPT,  XHEIG, 

0448 

& 

XELEV  ) 

0449 

READ  (  IFILE,  660  )  (  YD  (  M  ) ,  M  -  1 ,  NUMD  ) 

0450 

* 

E61 
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0451 

* .  .  . 

DENSITIES  .... 

0452 

* 

0453 

READ  (  IFILE ,  620  )  CHECK 

0454 

IF  (  CHECK  .NE.  XDENS  ) 

0455 

& 

CALL  ERROR  (  1240  ,  SUBR .  CHE 

0456 

& 

XDUMY3  ) 

0457 

READ  (  IFILE,  660  )  (  DEN  (  M  ).  M 

0458 

GO  TO  370 

0459 

360 

CONTINUE 

0460 

■k 

0461 

*.  .  . 

ELEVATION  AND  DENSITY  VALUES  LISTED  I 

0462 

* 

0463 

READ  (  IFILE,  670  )  CHECK1  .  CHECK.’ 

0464 

IF  (  CHECK1  .NE.  XDEPT  AND  CHECK! 

0465 

& 

.AND.  CHECK  1  NE.  XELEV  i 

0466 

& 

CALL  ERROR  (  1250  .  SURR  ■  HE 

0467 

& 

XHF.1G  ) 

0468 

IF  (  CHECK2  .NE.  XDENS  > 

0469 

CALL  ERROR  (  1260  .  SCRR  HE 

0470 

& 

XDl'MY  5  ' 

0471 

READ  (  IFILE,  680  )  (  YD  <  M  ;  r c 

0472 

CHECK  -  CHECK1 

0473 

370 

CONTINUE 

0474 

* 

0475 

CONVERT  DEPTH  OR  ELEVATION  T  iU  ;  ,■ 

0476 

* 

0477 

IF  (  CHECK  .  EQ.  XHEK-  '  >  I 

0478 

IF  (  CHECK  .  F.Q .  XDEPT  I 

0479 

* 

0480 

ELEVATION  TO  HEIGHT 

0481 

* 

0482 

DO  380  M  -  1 .  NCMD 

0483 

YD  (  M  )  -  YD  M  E  '  " 

0484 

380 

CONTINUE 

0485 

GO  TO  410 

0486 

390 

CONTINUE 

0487 

* 

0488 

* . 

DEPTH  TO  HE  I  CH  I 

0489 

* 

0490 

DO  400  M  1  N 

0491 

YD  (  M  >  - 

0492 

400 

CONTINUE 

0493 

410 

CONTINUE 

0494 

* 

0495 

* 

genera; : 

0496 

* 

049  7 

■  a:  : 

0498 

* 

0499 

* 

CHE  E  r  • 

0500 

* 

■  A  '  '  .  .  , 

M 
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XREAD 

0501 

* 

0502 

READ  (  I FILE,  700  )  CHECK,  NUMT 

0503 

IF  (  CHECK  .NE.  XNUMB  .AND.  CHECK  .NE.  XQUAL  .AND. 

0504 

& 

CHECK  .NE.  XSTOP  ) 

0505 

& 

CALL  ERROR  (1270  ,  SUBR,  CHECK,  XNUMB,  XQUAL, 

0506 

& 

XSTOP  ) 

0507 

IF  (  CHECK  .EQ.  XSTOP  )  RETURN 

0508 

IF  (  CHECK  .EQ.  XQUAL  )  GO  TO  490 

0509 

* 

0510 

*. .  . 

TEMPERATURE  .... 

0511 

* 

0512 

420 

CONTINUE 

0513 

* 

0514 

*.  .  . 

FAHRENHEIT  OR  CENTIGRADE  .... 

0515 

* 

0516 

READ  (  IFILE,  690  )  CHECK,  UNITS 

0517 

IF  (  CHECK  .NE.  XTEMP  .AND.  CHECK  .NE.  XSTOP  ) 

0518 

& 

CALL  ERROR  (  1280  ,  SUBR,  CHECK,  XTEMP,  XSTOP, 

0519 

& 

XDUMY3  ) 

0520 

* 

0521 

IF  (  CHECK  .EQ.  XSTOP  )  RETURN 

0522 

IF  (  UNITS  .NE.  XFAHR  .AND.  UNITS  .NE.  XCENT  ) 

0523 

& 

CALL  ERROR  (  1290  ,  SUBR,  UNITS,  XFAHR,  XCENT, 

0524 

& 

XDUMY3  ) 

0525 

* 

0526 

QCENT  -  UNITS  .EQ.  XCENT 

0527 

QTEMP  -  .TRUE. 

0528 

IF  (  QTAB1  )  GO  TO  430 

0529 

* 

0530 

*.  .  . 

ELEVATION  AND  TEMPERATURE  LISTED  IN  SEPERATE  TABLES  . . 

0531 

* 

0532 

READ  (  IFILE,  610  )  CHECK 

0533 

* 

0534 

*.  .  . 

ELEVATION  TABLE 

0535 

* 

0536 

IF  (  CHECK  .NE.  XELEV  .AND.  CHECK  .NE.  XHEIG  .AND. 

0537 

& 

CHECK  .NE.  XDEPT  ) 

0538 

& 

CALL  ERROR  (1300  ,  SUBR,  CHECK,  XHEIG,  XELEV, 

0539 

& 

XDEPT  ) 

0540 

READ  (  IFILE,  660  )  (  YT  (  M  ) ,  M  -  1 ,  NUMT  ) 

0541 

* 

0542 

*.  .  . 

TEMPERATURE  TABLE  .... 

0543 

* 

0544 

READ  (  IFILE,  610  )  CHECK 

0545 

IF  (  CHECK  .NE.  XTEMP  ) 

0546 

& 

CALL  ERROR  (  1310  ,  SUBR,  CHECK,  XTEMP,  XDUMY2 , 

0547 

& 

XDUMY3  ) 

0548 

READ  (  IFILE,  660  )  (  TEMP  (  M  ),  M  -  1,  NUMT  ) 

0549 

GO  TO  440 

0550 

430 

CONTINUE 

E63 
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0551 

* 

0552 

*.  .  . 

ELEVATION  AND  TEMP  LISTED  IN  ONE  TABLE  .... 

0553 

* 

0554 

READ  (  IFILE,  670  )  CHECK1 ,  CHECK2 

0555 

IF  (  CHECK1  .NE.  XELEV  .AND.  CHECK1  .NE.  XHEIG 

0556 

& 

.AND.  CHECK 1  .NE.  XDEPT  ) 

0557 

& 

CALL  ERROR  (  1320  ,  SUBR,  CHECK1,  XDEPT,  XELEV, 

0558 

& 

XHEIG  ) 

0559 

IF  (  CHECK2  .NE.  XTEMP  ) 

0560 

& 

CALL  ERROR  (  1330  ,  SUBR,  CHECK2 ,  XTEMP,  XDUMY2 , 

0561 

& 

XDUMY3  ) 

0562 

READ  (  IFILE,  680  )  (  YT  (  M  ) ,  TEMP  (  M  ),  M  -  1,  NUMT 

0563 

CHECK  -  CHECK1 

0564 

440 

CONTINUE 

0565 

★ 

0566 

*.  .  . 

CONVERT  ELEVATION  OR  DEPTH  TO  HEIGHT  ABOVE  BOTTOM  .... 

0567 

★ 

0568 

IF  (  CHECK  .EQ.  XHEIG  )  GO  TO  480 

0569 

IF  (  CHECK  .EQ.  XDEPT  )  GO  TO  460 

0570 

* 

0571 

* .  .  . 

ELEVATION  TO  HEIGHT  .... 

0572 

* 

0573 

DO  450  M  -  1.  NUMT 

0574 

YT  (  M  )  -  YT  (  M  )  -  BOTTOM 

0575 

450 

CONTINUE 

0576 

* 

0577 

GO  TO  480 

0578 

460 

CONTINUE 

0579 

* 

0580 

* .  .  . 

DEPTH  TO  HEIGHT  .... 

0581 

* 

0582 

DO  470  M  -  1,  NUMT 

0583 

YT  (  M  )  -  SURFACE  -  YT  (  M  )  -  BOTTOM 

0584 

470 

CONTINUE 

0585 

480 

CONTINUE 

0586 

* 

0587 

* .  .  . 

GENERATE  COMPUTATIONAL  PROFILE  .... 

0588 

* 

0589 

CALL  INTERP  (  TEMP,  YT,  NUMT  ) 

0590 

* 

0591 

GO  TO  500 

0592 

★ 

0593 

* .  .  . 

QUALITIES  .... 

0594 

* 

0595 

490 

CONTINUE 

0596 

BACKSPACE  IFILE 

0597 

500 

CONTINUE 

0598 

* 

0599 

* .  .  . 

CHECK  FOR  QUALITY  PROFILE  (  AND  NUMBER  OF  DATA) 

0600 

* 

OR  A  STOP  COMMAND 
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XREAD 

0601 

* 

0602 

READ  (  I FILE,  620  )  CHECK,  NQUAL 

0603 

QQUAL  -  CHECK  . EQ .  XQUAL 

0604 

IF  (  CHECK  .NE.  XQUAL  .AND. 

0605 

6. 

CHECK  .NE.  XSTOP  ) 

0606 

& 

CALL  ERROR  (1340  .  SUBR,  CHECK,  XQUAL,  XSTOP, 

0607 

& 

XDUHY3  ) 

0608 

IF  (  CHECK  .EQ.  XSTOP  )  RETURN 

0609 

DO  590  I  -  1,  NQUAL 

0610 

READ  (  I FILE ,  710  )  CHECK,  (  NAMEQ  (  NM,  I  ), 

0611 

& 

NM  -  1.  5  ).  NUMQ  (  I  ) 

0612 

IF  (  CHECK  .NE.  XNUMB  ) 

0613 

& 

CALL  ERROR  (  1350  ,  SUBR,  CHECK,  XNUMB,  XDUMY2 , 

0614 

& 

XDUMY3  ) 

0615 

* 

0616 

*.  . 

CHECK  THAT  THE  FIRST  QUALITY  PROFILE  IS  DISSOLVED  OXYGEN 

0617 

* 

WHEN  AERATE  OR  VENTING  SUBROUTINES  ARE  TO  BE  USED  .... 

0618 

* 

0619 

IF(  QVENT  OR.  QAERA  .AND.  NAMEQ  (1,1)  NE .  XDISS  ) 

0620 

& 

CALL  ERROR  (  1345  ,  SUBR,  XDUMY ,  XDUMYl ,  XDUMY2 , 

0621 

& 

XDUMY3  ) 

0622 

NUMBER  -  NUMQ  (  I  ) 

0623 

IF  (  QTAB1  )  GO  TO  510 

0624 

* 

0625 

*.  .  . 

ELEVATION  AND  QUALITY  LISTED  IN  SEPERATE  TABLES 

0626 

* 

062  7 

READ  (  IFILE ,  610  )  CHECK 

0628 

* 

0629 

*.  .  . 

ELEVATION  TABLE 

0630 

* 

0631 

IF  (  CHECK  NE  XELEV  AND.  CHECK  NE  XHEIG  AND 

0632 

& 

CHECK  NE.  XDEPT  ) 

0633 

& 

CALL  ERROR  (  1360,  SUBR,  CHECK.  XDEPT,  XHEIG, 

06  34 

& 

XELEV  ) 

0635 

READ  (  IFILE,  660  )  (  YQ  (  I  ,  M  ),  M  -  1.  NUMBER  ) 

0636 

* 

0637 

*.  .  . 

QUALITY  PARAMETERS 

0638 

* 

0639 

READ  (  IFILE,  610  )  CHECK 

0640 

READ  (  IFILE.  660  )  (  QUAL  (  I  ,  M  ).  M  -  1.  NUMBER  ) 

0641 

;o  TO  520 

0642 

510 

CONTINUE 

064  3 

* 

0644 

* . 

ELEVATION  AND  QUALITY  LISTED  IN  ONE  TABLE 

064  5 

* 

0646 

READ  (  IFILE.  670  )  CHECK 

064  7 

IF  (  CHECK  NE  XELEV  AND  CHECK  NE  XHEIG 

0648 

& 

AND  CHECK  NE  XDEPT  ) 

0649 

& 

CALL  ERROR  (  1370  ,  SUBR,  CHECK.  XDEPT.  XHEIG. 

0650 

& 

XELEV  ) 
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0651 

READ  (  I FILE,  680  )  (  YQ  (  I  ,  M  ) ,  QUAL 

(  I 

.  M  ), 

0652 

&  H  -  1,  NUMBER) 

0653 

0654 

520 

CONTINUE 

0655 

* 

0656 

CONVERT  ELEVATION  OR  DEPTH  TO  HEIGHT  ABOVE 

THE 

BOTTOM 

0657 

* 

0658 

IF  (  CHECK  .EQ.  XHEIG  )  CO  TO  560 

0659 

IF  (  CHECK  .EQ.  XDEPT  )  GO  TO  540 

0660 

* 

0661 

* .  .  .  . 

ELEVATION  TO  HEIGHT  .... 

0662 

★ 

0663 

DO  530  M  -  1.  NUMBER 

0664 

YQ  (  I  ,  M  )  -  YQ  (  I  .  M  )  -  BOTTOM 

0665 

530 

CONTINUE 

0666 

GO  TO  560 

0667 

540 

CONTINUE 

0668 

* 

0669 

* .  .  . 

DEPTH  TO  HEIGHT  .... 

0670 

* 

0671 

DO  550  M  -  1,  NUMBER 

0672 

YQ  (  I  ,  M  )  -  SURFACE  -  YQ  (  I  .  M  ) 

-  BOTTOM 

0673 

550 

CONTINUE 

0674 

560 

CONTINUE 

0675 

* 

0676 

* 

ASSIGN  QUALITY  VALUES  TO  DUMMY  VARIABLES  TO  BE 

PASSED 

0677 

* 

TO  ROUTINE  INTERP 

06  78 

* 

06  79 

NQ  -  NUMQ  (  I  ) 

0680 

DO  570  K  -  1  ,  NUMBER 

0681 

DUMQUAL  (  K  )  -  QUAL  (  I  .  K  ) 

0682 

DUMYQ  (  K  )  -  YQ  (  I  ,  K  ) 

0683 

570 

CONTINUE 

0684 

* 

0685 

* .  .  . 

GENERATE  COMPUTATIONAL  PROFILE 

0686 

* 

068  7 

CALL  INTERP  (  DUMQUAL.  DUMYQ,  NQ  ) 

0688 

* 

0689 

* 

ASSIGN  ROUTINE  INTERP  OUTPUT  TO  ARRAY 

0690 

* 

0691 

DO  580  K  -  1 ,  I SURF 

0692 

QUAL  (  I  ,  K  )  -  DUMQUAL  (  K  ) 

0693 

580 

CONTINUE 

0694 

590 

CONTINUE 

0695 

* 

0696 

* . 

STOP  COMMAND 

069  7 

* 

0698 

READ  (  I FILE,  610  )  CHECK 

0699 

IF  (  CHECK  NE  XSTOP  ) 

0  700 

6  CALL  ERROR  (1380  ,  SUBR,  CHECK,  XSTOP 

XDUMY2 
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0701 

& 

XDUMY3  ) 

0702 

600 

FORMAT 

( 

1H1  ) 

0703 

610 

FORMAT 

( 

20A4  ) 

0704 

620 

FORMAT 

( 

A4 ,  6X,  1415  ) 

0705 

630 

FORMAT 

( 

10X,  16,  7X ,  3H*** ,  20A4  ) 

0706 

635 

FORMAT ( 

A4 ,  6X,  A4 ,  6X,  6F10.0  ) 

0707 

640 

FORMAT 

( 

A4 ,  6X,  A4.  6X,  1215  ) 

0708 

650 

FORMAT 

( 

A4 ,  6X,  (  7F10.0  )  ) 

0709 

660 

FORMAT 

( 

8F10.0  ) 

0710 

670 

FORMAT 

( 

A4 ,  6X,  A4  ) 

0711 

680 

FORMAT 

( 

2F10.0  ) 

0712 

690 

FORMAT 

( 

A4 ,  16X ,  A4  ) 

0713 

700 

FORMAT 

( 

A4 ,  16X,  1215  ) 

0714 

710 

FORMAT 

( 

A4 ,  6X,  5A4 ,  15  ) 

0715 

RETURN 

0716 

END 

E67 


END 

FILMED 

I  DATS :  I 

10-?*-  I 

DTIC 


